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EDITO 


L: numéro hors série 
ue vous tenez 

Æ fébrilement entre vos 
mains impatientes de partir 
au contact du clavier est un 
numéro spécial jeux. En 
effet, nous avons pensé que 
la proximité évidente des 
vacances inciterait à des 
activités ludiques plutôt qu’à 
une programmation 
forcenée. Mais que les 
stakhanovistes du listing se 
rassurent ; ils trouveront 
également un programme 
utilitaire et un éducatif dans 
ce numéro. Une fois de plus, 
il y en a pour tout le monde. 


Alors, bon courage et 
bonnes vacances. 
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ULCINOR 


P::"; au milieu d’un labyrinthe 
intersidéral, vous cherchez les 9 
morceaux de la clé, unique objet de 

votre libération. Les pièces du labyrinthe 
sont truffées de têtes de mort au contact 
destructeur. Grâce aux touches fléchées, 
vous déplacerez votre vaisseau et vous 
parviendrez peut-être ainsi à vous en sortir 
vivant. 


VALABLE POUR 
3% CPC 664 
2 CPC 6128 


Bonne chance... 
Le mode d’emploi est inclus 
dans le programmes 





10 CLEAR:DEFINT A-Z:G0SUB 200: INK 0,0: INK 1,15: INK 2,6: >JR f 200 RESTORE 240:DIM 0$(8):SYMBOL AFTER 128:FOR 1=160 TD >KP 


INK 3,2:PAPER O:PEN 1:BORDER 0:G0SUB 1660:G60SUB 1870:M0 

DE 1:VIE=4:P=5:C=0:F6=2:DIM P(24,19),L (25,27) ,0(27) :0B= 

O:FOR 1=0 TO 27:0(1)=0:NEXT:X=12:Y=16 

20 T$="000011011110011110110101101011000011100101101000 3WR 

00100001010000001110011110111101":T1$="0000011111011011 

1110001111000101101001101001010010000010000100001 101101 

111100111":P$="000000-101-1010001010001-101-100-1-1" 

30 RESTORE 40:FOR H=1 TO 6:READ A,B,C,D,E:WINDOW #H,A,B DVC 

,C,D:PAPER HH,E:CLS HH:NEXT:PEN #1,0 

40 DATA 25,2, 20, 2,3, 25, 2,24,22,3,39,27,17,4,3,39,27,24, >J6 

24,0,27,39,22,19,2,39,27,2,2,0 

50 G0TO 510 >Rk 

60 ‘ DLF 

70 IF INKEY(1)=0 THEN SOUND 1,300,5, 15:P=P+1-B#INT(P/8) >NZ 

2LOCATE #1,X,Y:PRINT #1,0$(P) 

80 IF INKEY(B)=0 THEN SOUND 1,200,5,15:P=P-148#INT (1/P) DNZ 

2LOCATE #1,X,Y:PRINT 41,0$(P) 

90 IF INKEY(0)=0 THEN 100 ELSE 110 >1F 

100 KLS=MIDS (P$,P#4+1,4) :LM=VAL (MIDS(KLS, 1, 2)):KM=VAL (M RC 

ID$ (KLS, 3, 2) } 

110 IF DIF=1 AND INKEY(2)=0 THEN LM=0:KM=0:60T0 140 DUC 

120 IF INKEY(47)=0 THEN CLS #2:LOCATE #2,2,2:PRINT #2," MI 
(16,0):(14,8):013,9) (5,12); (20,27); (16,15) (1,14) 

5 (11,21); (15,20) ":WHILE INKEYSC>"":WEND:CALL &BBOb: CLS 

#2:60SUB 1640:60T0 140 

130 SOUND 2,2000,5,15:PEN #1,0:X=X+LM:Y=Y4KM:GOSUB 160: ME 

LOCATE #1,X,V:PRINT #1,0$(P) 

140 RETURN )1A 

150 * RG 

160 IF (LM=0 AND KM=-1) OR (LM=0 AND KM=1) OR (LM=-1 AN MB 

D K=0) OR (LM=1 AND KM=0) THEN LOCATE #1, X-LM#2, Y-KW#2 

:PRINT #1,K$(1):RETURN 

170 IF (LM=1 AND KM=-1) OR (LM=-1 AND KM=1) OR (LM=1 AN HT 

D KM=1) OR (LM=-1 AND KM=-1) THEN LOCATE #1,X-LM, Y-KM:P 

RINT #1,K$(1) :RETURN 

180 RETURN 

190 * 


?1E 
TA 





233:READ C1,C2,C3,C4,C5, C6, C7, C8: SYMBOL 1,C1,C2,C3,C4, 
CS, C6, C7, CB:NEXT 

210 YS=CHR$(128):K=1:FOR B=160 TO 191 STEP 4:0$(K)=CHR$ MB 
(BD4CHRS(B+1)4"  "4CHRS(B+2)+CHRS (B43) :K=K41:NEXT:KS (1 
J=VS4V$+"  "4VS4V$ 

220 EXS(1)=CHRS(196)+$+"  "aVS4CHRS(197):K=2:FOR B=19 )PZ 
8 TO 225 STEP 4:EX$(K)=CHRS(B)4CHRS(B+1)4"  "#CHRS (B+2 

D +CHRS (B43) :K=K+1:NEXT : Q$ (1)=CHRS (192)+CHR$ (193)4CHRS (2 
2)+CHR$ (1) 

230 Q$(2)=CHRS (194) +CHRS (195) +CHR$ (22) 4CHRS (0) :F$=CHRS( DVB 
143) :LS=CHRS (149) 

240 DATA 0,0,0,0,1,3,7,15,0,0,128, 128,192, 224,112,120,3 >CN 
1,25,17,17,0,0,0,0, 252, 204, 196, 196,0, 0, 0,0 

250 DATA 0,0,16,60,103,3,1,3,0,0,4,24, 120,208, 176, 224,7 DWG 
13:1,0,0,0,0,0,240, 176, 24,8, 12,24, 16,0 

260 DATA 0,0,0,15,3,1,1,15,0,0,0,0, 128, 192,224,240,15,1 DXT 
5,1,1,3,15,0,0,60, 240,224, 192, 128,0, 0,0 

270 DATA 0,0,0,0,0,1,3,7,0,16,24,12,8,24,176,240,3,1,3, DWB 
103, 60,16,0,0, 224, 160,208, 120, 24, 4,0,0 

280 DATA 0,0,0,0,35,35,51,63,0,0,0,0,136,136,152,240,30 >XX 
,14,7,3,1,1,0,0,240, 224, 192, 128,0, 0, 0,0 

290 DATA 0,8,24,48,16,24,13,15,0,0,0,0,0,128,192,224,7, >DR 
13,11,30,24,32,0,0,192, 128, 192, 230, 60,8, 0,0 

300 DATA 0,0,0,1,3,7,15,60,0,0,240, 192, 128,128, 240,240, >CH 
15,7,3,1,0,0,0,0, 240, 128, 128, 192,240, 0,0,0 

310 DATA 0,0,32,24,30,11,13,7,0,0,8, 60,230, 192, 128,192, >DJ 
15,13,24, 16,48, 24,8, 0,224, 192, 128,0, 0,0,0,0 

320 DATA 192,240, 254,255, 255, 127, 30,0,0,0,0, 255, 248,192 >WK 
,0,0,0,0,0,15,0,0,0,0 

330 DATA 0,0,0,192,0,0,0,0,0,0,0,0,0,0,0,1,128,0,0,0,0, >W 
0,0,0,0,0,0,0,0,0,2,1 

340 DATA 0,0,0,0,0,0,64, 128,2, 2,0,0,0,0,0,0,64,128,0,0, >YY 
0,0,0,0,0,0,0,0,0,2,1,6 

350 DATA 0,0,0,0,0,160,64,64,5,5,2,0,0,0,0,0,192,64,32, DEX 
0,0,0,0,0,0,0,0,0,4,10,5,9,0,0,0,0, 144,32,80,64,5, 10,5, 
4,0,0,0,0,96, 176,96, 80,0,0,0,0 

360 DATA 0,0,0,10,13,18,12,21,0,0,0,72,32,80, 168, 32,25, >QC 


ER 





12,25,10,18,0,0,0 

370 DATA 32,88,160,24,72,0,0,0,0,0,20,1,4,16,5,0,0,0,B4 :MV 

,0,196,48,72,4 

380 DATA 17,4,10,17,4,17,0,0,16,64,148,72,20,0,0,0,0,68 >RW 

,17,36,42,81,8,34 

390 DATA 0,72,36,82,136,144,66,0,8,82,8,42,16,89,17,0,0 >XF 

.84,32,138,32,84,18,0 

400 DATA 1,1,15,19,1,1,1,1,128,128, 

128,7,8,16,32,64,255, 128,255 

410 DATA 224,16,8,4,2,255,1,295,34,74,39,119,119,127,25 >QX 

J, 299, 209, 299,127,119,119,39,34,34 

420 DATA 192,248,255,192,224,252,255,292,63,295,63,7,31 GE 

299, 31,3 

430 DATA 0,0,0,1,14,24,49,34,98,68,76,72,72,76,68,98,0, 66 

0,0,192,56,12,230,50,19,17,16,16,17,17,17,19 

440 RESTORE 450:FO0R 1=245 TO 252:READ C1,C2,C3,C4,C5,C6 MZ 

,C7,C8:SYMBOL 1,C1,02,C3,C4,C5,C6,C7, C8: NEXT 

450 DATA 0,224, 14, 16,32, 32, 52, 32,34,49,24,14,1,0,0,0,90 >QT 

v: 12,56,192,0,0,0,1,0,0,0,0,0,0,0,192,0,0,0,0,0,0,0, 
2,2,2,1,0,0,0,0,32,32,32,224,0,0,0,0,249, 138,254, 250,24 

,253,255, 248 


240,240, 128, 128,128, >6J 


460 SYMBOL 143,124,254, 214,254, 124,56,56,56 >JX 
470 SYMEOL 235,0, 255,0,0,255, 1, 1,1 >AQ 
480 SYMBOL 237,0,255,0, 0,7, 117,85, 92 >CK 
490 SYMBOL 239,0, 255,0, 0, 126, 66, 194, 2 >CC 
500 RETURN >1A 


510 RESTORE 520:FOR H=1 TO 6:READ A,B,C,D:LOCATE A,B:PR DEP 
INT STRING$ (C, D) ;:NEXT 

520 DATA 1,1,40,154,1,25,40,154,1,21,25, 154,24, 18, 14,15 DE 
4,26,23,14,154,26,3, 14,154 

530 FOR 1=1 TO 25:LOCATE 1,1:PRINT L$;:LOCATE 40, I:PRIN >UV 
T L$;:LOCATE 26, I:PRINT L$3:NEXT 

540 FOR H=1 TO 14:READ A,B,C:LOCATE A,B:PRINT CHRS(C):: )EH 
NEXT 

550 DATA 1,1,150,1,25,147,40,25,153,40,1,156,1,21,151,2 FE 
6,23,151,26,18,151,26,3,151,26,25, 155,40, 23,157, 40, 18,1 
57,26, 1,158,40,3, 157,26, 21,157 

560 GOSUB 1310:G0SUB 1640 TC 
570 FOR H=1 TO B:READ A,B,C,D:PEN #4, A:LOCATE #4,B,C:PR >VD 
INT #4,0$ (D) :NEXT 

580 DATA 1,1,1,1,2,1,1,2,1,411,2,41,21715132,7,1, TK 
2,1,10,1,1,2,10,1,2 

590 RESTORE 610:FOR 1=0 TO 27:FOR J=0 TO 25:READ A:L(J, DRB 
L)=A:NEXT:NEXT 

800 ‘labyrinthel >RG 
610 DATA 7,14,5,14,5,3,1,5,5,5,14,5,14,14,14,3,19,5,5,5 >NN 
,14,5,5,14,5,10 

420 DATA 6,9,3,9,10,7,5,5,10,1,13,10,6,6,6,2,1,14,5,10, LC 
b,1,10,11,3,6 

630 DATA 6,2,7,14,13,15,14,3,4,7,14,12,6,6,6,11,10,9,10 >PK 
19,12,2,9,15,3,4 

640 DATA 6,9,8,9,3,4,9,14,5,8,6,6,6,8,9,8,6,1,12,7,13,8 DFE 
,2,9,10,2 

650 DATA 11,5,14,3,7,10,7,15,10,7,8,4,4,11,5,5,15,10,6, YU 
9,5,5, 12,2, 6,6 

660 DATA 11,3,9,5,8,9,12,4,4,9,3,7,5,857,10,6,9,15,3,1, >JP 
14,13,8,6,6 











670 DATA 6,7,14,14,14,3,9,10,1,5,10,6,1,5,12,9,13,3,9,3 >NQ 
,7,13,5,14,12,6 

680 DATA 11,8,4,11,13,5,3,6,1,5,13,13,5,10,6,1,10,1,14, MU 

3,4,1,10,6,6,6 

690 DATA 11,14,3,9,10,7,3,6,2,7,5,14,5,8,18,7,8,1,12,2, >LP 
1,5,15,8,9, 12 

700 DATA 6,9,5,10,11,8,2,4,11,8, 
,14,10,6,2,7,8 

HO DATA 6,1, 1448,11,3,11,5,12,7, 81669 101611410114, >av 
14,8,11,13,13,8,2 

720 DATA 11,10,11,3,4,7,12,2,6,6,2,9,5,8,6,4,4,2,6,11,3 > JC 
,4,7,14,10,6 

780 DATA 86,11,5,3,18,4,8,4,6,11,5,3,7,8,7,5,13,12,6,7 UK 
,14,8,6,4,6 

740 DATA 6,4,6,7,14,5,5,13,5,8,6,2,1,15,3,11,10,2,4,11, 3KD 
8,6,2,9,5,12 

750 DATA 4,19,8,6,6,7,10,1,10,7,13,8,7,8,1,8,9,15,3,9,1 LR 
0,4,11,14,3,6 

760 DATA 2,2,7,12,9,8,6,7,12,9,5,10,6,1,14,3,19,8,2,7,1 DKY 
3,14,8,4,2,6 

770 DATA 6,9,8,9,14,10,6,8,9,5,10,11,13,5,12,7,10,2,11, W 
15,3,11,3,7,8,4 

780 DATA 11,3,2,7,12,4,6,4,7,5,12,11,5,14,12,6,4,9,8,9, FX 
10,11,10,11,10,2 

790 DATA 11,3,11,8,6,2,9,5,12,7,15,13,3,4,9,13,5,10,2,7 3KG 
,8,4,9,8,9,8 

800 DATA 6,7,15,5,8,6,1,10,4,6,11,5,5,10,7,10,2,11,8,9, KA 
5,5, 14,5, 3,2 

810 DATA 6,6,11,5,5,8,7,8,7,8,11,3,2,9,8,18,6,9,10,7,5, JL 
5,13,10,2,6 

820 DATA 11,8,6,1,10,1,13,10,6,7,12,16,9,10,2,7,12,7,6, MY 
9,10,7,5,8,6,b 

830 DATA 11,10,9,14,13,14,5,13,12,4,9,8,7,8,6,6,11,15,3 PT 
,2,4,9,10,7,12,6 

840 DATA 6,9,10,6,2,4,7,10,9,5,14,3,6,7,8,6,4,9,10,9,10 3LK 
113:12-9:12 

850 DATA 6,1,8,6,9,5,12,6,7,5,8,7,13,15,5,8,7,3,9,10,9, DKL 
14,14,8,1,12 

860 DATA 11,10,7,12,7,3,6,9,13,14,10,6,7,13,14,10,9,10, DRM 
7,8,7,8,9,14,10,6 

870 DATA 4,9,8,4,6,2,4,1,5,8,11,12,9,3,4,4,7,13,13,3,4, DEN 
7,10,4,4,6 

880 DATA 1,5,5,5,13,13,5,5,5,5,13,13,5,5,5,5,13,5,5,31 UK 


2,6,7,17,7,15,5,5,13,13 DM2 


9,13,13,5,5,8 

890 GOTO 940 >AG 
900 ‘ RK 
910 IF L(J,1)>15 THEN CM=0 >TX 


920 GOSUB 1140:60SUB 930:PLOTR 8,0:PLOTR 0,B:PLOTR -8,0 >MF 
:PLOTR 0,-8:DRAMR 0,8#C6:G0SUB 930:PLOTR 8,0:DRAR 0,84 
CD:60SUB 930:DRAMR 8#CB, 0:G0SUB 930:PLOTR 0,8:DRAWR BxC 
H,0:60SUB 930:PLOTR 2,2,CM:DRAWR 4,0:PLOTR 0,2:DRAMR -4 
,0:PLOTR 0,2: DRAR 4, 0:CM=3:RETURN 


930 PLOT 416,128,C:PLOTR J#8, I#8:RETURN >HX 
940 “PROGRAMME PRINCIPAL >TD 
950 J=15:1=20:60T0 1260 >RL 
960 IF 1=27 AND J=0 AND OB=9 THEN 1930 >CN 


970 IF L{J,1)>15 THEN GOSUB 1330 ELSE GOSUB 1330:G0SUB >BA 


E A 





1350 
980 M1$=MID$(T1$,L(J, L)#4+1,4) :MD=VAL (MIDS (M$, 1,1)):MG >YL 
=VAL(MIDS (M1, 2, 1) 3: MH=VAL(MIDS (M1$,3, 1) ) :MB=VAL (MIDS (M 


1$,4,1)) 

990 GOSUE 60 CC 
1000 IF L(J,1)>15 THEN GOSUE 1450:60T0 1050 5JH 
1010 IF P{X,Y)=1 THEN 1400 >TF 
1020 IF P(X,Y+1)=1 THEN 1400 >UD 
1030 IF P(X+#1,Y+1)=1 THEN 1400 >UX 
1040 IF P(X+1,Y)=1 THEN 1400 SUF 


1050 IF MD=1 THEN GOSUB 1180 ELSE IF X=23 THEN C=1:605Ù >Y7 
B 910:J=J+1:6070 1260 
1060 IF MG=1 THEN GOSUB 1160 ELSE IF X=1 THEN C=1:60SUB :XC 
910:J=J-1:6070 1260 
1070 IF MH=1 THEN GOSUB 1200 ELSE IF Y=1 THEN C=1:G0SUB HE 
910:1=1+1:G0T0 1260 
1080 IF MB=1 THEN GOSUB 1220 ELSE IF Y=18 THEN C=1:60SÙ :YA 
B 910:1=1-1:G0T0 1260 


1090 IF FG6=0 THEN 1400 ?PE 
1100 GOTD 986 ?FE 
1110 >XF 


1120 CLS#1:60SUB 1140:LOCATE #1,1,1:PRINT #1,STRING$ (24 JF 
#CH,227)3 :LOCATE #1,1,19:PRINT #1,STRINGS (244CE, 226) ;:F 

OR FGH=1 TO 19:LOCATE #1,1,FGH:PRINT #1, CHR (228#C6) ;:N 
EXT:FOR FGH=1 TO 19:LOCATE #1,24,FGH:PRINT #1,CHRS (2294 

CD) ; :NEXT:RETURN 

1130 >XH 
1140 MS=MIDS(TS,L (I, D) #4+1,4) :CG=VAL(MIDS (M$, 1,1)):CB=V >CX 
AL (MIDS (M$, 2, 13) :CD=VAL (MIDS (MS,3, 13) :CH=VAL (MIDS (MS, 4, 

1) :RETURN 

1150 ‘ >Xk 
1160 IF X=2 THEN SOUND 1,200, 10:LM=1:X=X+1:LOCATE #1,X > TA 
-1,V:GOSUB 1250 

1170 RETURN >FC 
1180 IF X>=22 THEN SOUND 1,200, 10:LM=-1:X=X-1:LOCATE #1 WE 
,X+1,Y:60SUB 1250 

1190 RETURN >FE 
1200 IF V£=2 THEN SOUND 1,200, 10:KM=1:Y=Y+1:LOCATE #1,X >TX 
,Ÿ-1:60SUB 1250 

1210 RETURN >EH 
1220 IF Y>=17 THEN SOUND 1,200, 10:KM=-1:Y=Y-1:LOCATE #1 DWF 
,X,Y+1:60SUE 1250 


1230 RETURN >EK 
1240 >XK 
1250 PRINT #1,K$(1):FG=F6-1:G0SUB 1310: RETURN >PA 
1260 C=2 VA 
1270 IF K>=23 THEN X=2 ELSE IF X<=2 THEN X=22 KU 
1280 IF Y>=18 THEN Y=2 ELSE IF Y<=2 THEN Y=17 xH 
1290 LOCATE #6,1,1:PRINT #6,"J="3;J:LOCATE #6,7,1:PRINT JT 
#6,"I=";1 

1300 GOSUB 910:G0SUB 1120:G0T0 960 >B6 
1310 LOCATE 45,1,1:PRINT 45,"ENERGIE :";FG: RETURN >UN 
1320 xx] 


1330 FOR TI=0 TO 4:P(XPO(TI) ,YPO(TI))=0:NEXT:P(3,3)=0:P >TH 
(3,17)=0:P (20,3)=0:P (20, 17)=0:P (12,9) =0:RETURN 

1340 ‘ ?YA 
(1350 FOR TI=0 TO 4:XPO(TI)=INT (RND#15) +6: YPO(TI)=INT (RN TJ 








D#10)+6:P(XPOUTI) ,YPOTI))=1:LOCATE #1, XPO(TI), YPO(TI) : 
PRINT#1,F$:NEXT 

1360 RESTORE 1370:FOR H=1 TO S:READ A,B:P(A,B)=1:LOCATE >FZ 
#1,A,B:PRINTH1,F$:NEXT 


1370 DATA 3,3,3,17,20,5,20,17,12,9 ?1C 
1380 RETURN 3FF 
1390 YF 


1400 SOUND 2,0,150,15,0,0,1:FOR G=1 TO 5:SOUND 4,50,6,1 >RE 
5,0,0, 10:NEXT G:FOR W=1 TO B:LOCATE #1,X,V:PRINT #1,EX$ 
(W):FOR H=1 TO SO0:NEXT:NEXT:FOR H=1 TO 00:NEXT 

1410 RESTORE 1420:FOR H=1 TO 7:READ A1,B1,C1:SOUND 1,A1 MA 
,B1,CL:NEXT 

1420 DATA 239,20,15,0, 2, 15,239, 20,15, 319, 20,15, 213, 20,1 > 

5,239, 40,15, 319,20, 15 

1430 VIE=VIE-1:1F VIE=3 THEN LOCATE #4,10,1:PRINT #4," DA 
" ELSE IF VIE=2 THEN LOCATE #4,7,1:PRINT #4," ":ELSE 

IF VIE=1 THEN LOCATE #4,4,1:PRINT #4," " ELSE IF VIE=0 
THEN LOCATE #4,1,1:PRINT #4," ":G0TO 1440 

1440 IF VIE=0 THEN LOCATE #1,8, 10:PRINT#1, "GAME OVER":G >KD 

OSUB 2150:RUN ELSE CLS #1:X=12: Y=15:LM=0:KM=0:F6=2: G0SU 

B 1310:60T0 1260 


“ 
>< 
= 


1450 IF O(1)=0 THEN GOSUB 1470 MA 
1460 RETURN 3FE 
1470 P(20,6)=2:LOCATE #1,20,6:PRINT #1,CHR$ (252) PN 
1480 IF P{X,Y)=2 THEN GOSUB 1530 #YJ 
1490 IF P(X,Y+1)=2 THEN GOSUB 1530 AJ 
1500 IF P(X+1,Y+1)=2 THEN GOSUR 1530 EM 
1510 IF P{X+1,Y)=2 THEN GOSUB 1530 AB 
1520 RETURN ?FB 
1530 D(T)=1 >0F 


1540 LOCATE #5,3,2:PRINT #5,CHR$ (230*0 (0) ) ;CHR$(232#0(0 AG 
)) 
1530 LOCATE #5,3,3:PRINT #5,CHR$(231*0 (8) ) ;CHR$(233#0(B AD 
)) 
1560 LOCATE #5,3,4:PRINT #5,CHR$ (24640 (9) ) ;CHR$ (247#0(9 AV 
)) 


1570 LOCATE #5,5,3:PRINT 45,CHR$ (23540 (12) ) KK 
1580 LOCATE 45,6, 3:PRINT #5,CHR$ (237#0(27)) >KH 
1590 LOCATE 45,7, 3:PRINT #5, CHR$ (23940 (15) ) KX 
1600 LOCATE #5,7,4:PRINT #5,CHR$ (250#0 (14) ) KF 
1610 LOCATE #5,8,4:PRINT #5,CHR$ (25140 (20)) 3KF 
1620 LOCATE #5,8,3:PRINT #5, CHR$ (24540 (21)) KK 


1650 OB=0B+1:G0SUB 1640:SOUND 1,200,10:FOR 11=1 TD 500: ?LB 
INK O,10:NEXT: INK O,O:RETURN 

1640 LOCATE #2,2,2:PRINT #2, "NOMBRE DE SEGMENTS";OB:RET >67 
URN 
1650 * PRESENTATION VE 
1660 MODE 2:LOCATE 20,12:A$="VOULEZ VOUS LES REGLES DE >YU 
CE JEU GENIAL 7 (O/N)":G60SUB 1950 


1670 O$=UPPERS (INKEY$) RU 
1680 IF 0$="0" THEN 1710 >06 
1690 IF O$="N" THEN RETURN UP 
1700 GOTO 1670 MK 


1710 FOR L=1 TO 10:SOUND 5,600,6,6:SOUND 5,500,8,8:SOUN >XC 
D 5,400,10,10:SOUND 5,300, 12,12:NEXT 

1720 MODE 2 >PG 
1730 LOCATE 1,6:A$="Vous devez recolter 9 segments qui GC 


[5] 








formeront une cle qui vous permettra de ":GOSUR 2080 


1740 PRINT:A$="sortir du labyrinthe qui vous est propos ) 


e.":60SUB 2080 


1750 PRINT:A$="Les tetes de mort sont mortelles,et,au n } 


iveau 2? vous ne pouvez pas vous arreter.":G60SUR 2680 
1760 PRINT:A$=" Voici le maniement du vaisseau :":60SU 
B 2080:PRINT:A$=" - Les touches droites et gauches du c 
urseur font tourner le vaisseau":60SUB 2080 


1770 PRINT:A$=" - La touche p sert a faire avancer le v 


aisseau dans le sens ou il est oriente":G0SUB 2080 
1780 PRINT:A$=" 
aisseau en niveau {":G60SUB 2080 


1790 PRINT:A$=" - La barre d'espace sert a avoir les co à 


ordonnees des objets":GO0OSUR 2080 


1800 PRINT:A$="Pour stopper la musique lorsque vous ave } 


z gagne ou perdu (helas ce genre de 
appuyer sur ESPACE":G60SUB 2080 
1810 LOCATE 25,23:A$="BONNE 
OSUB 1850 

1820 LOCATE 27,25:A$="< 
50 

1830 GOSUB 2160 

1840 RETURN 


chose arrive), 


1850 FOR I=1 TO LEN(A$):PRINT MID$(A$, 1,1) ;CHR$ (143) ;CH 5 


R$(8);:1F MIDS(A$,1,1)€)" " THEN SOUND 1,50,2,15,, , 20 
1860 FOR A=1 TO 20:NEXT:NEXT: PRINT" "; : RETURN 

1870 MODE 2:LOCATE 30, 10:A$="NIVEAU (1-2)":60SUB 1850 
1880 O$=INKEYS 

1890 IF O$="1" THEN DIF=1:RETURN 

1900 IF O$="2" THEN DIF=2:RETURN 

1910 GOTO 1880 

1920 * 

1930 LOCATE #1,10,10:PRINT #1, "GAGNE":GOSUB 1950:G0T0 1 
930 

1940 ‘ MUSIQUES 

1950 RESTORE 2020: TT=2:NN=3:60T0 1960 

1960 READ N1,T1:TI=T1#TT:NI=NI#NN 

1970 IF INKEY(47)=0 THEN BORDER 26:RUN 

1980 IF N10 THEN 2010 

1990 SOUND 1,N1,T1, 10: SOUND 2,N1#0.5, T1, 14: SOUND 4,N140 
.25,71,10 

2000 FOR 1=1 TO T1:NEXT: SOUND 7,0,1,15:G0T0 1960 

2010 FOR 1=1 TO 3000:NEXT:RETURN 


2020 DATA 80, 30,53, 10,60,20,95, 10,95, 10,95, 20, 100, 10,95 ) 


,10,71,20,80, 20,80, 20,80, 10,60, 10,60, 10,95, 10,95, 10,80, 
10,106,60,71,10,71,10,71,30,89, 10,71, 10,63, 10 


2030 DATA 60,10,53,10,60,10,80,10,60,10,45,10,47,20,80, > 


10,89, 10,95, 30,80, 10, 106, 30,80, 10, 119,60, -1,-1 

2040 DATA 71,15,75,5,71, 20, 71, 20,89, 20,89, 20, 119, 20, 119 
,20,0,20,71,15,75,5,71,20,71,20,89, 20,89, 20, 106, 20, 0, 40 
,80,10,71,10,80,20,119,20,119, 20,80, 10,71, 10, 80, 20 
2050 DATA 119,20,119,20,0,10,71,10,60, 20, 87, 20, 71, 20, 80 
,20,71,60 

2080 DATA 71,15,75,5,71, 20,71, 20,89, 20,89, 20, 119,20, 119 
,20,0,20,71,15,75,5,71,20,71,20,89,20,89, 20, 106, 20, 0, 40 
,80,10,71,10,60,20, 119,20, 119, 20,80, 10,71, 10,60, 20 

2070 DATA 119,20, 119, 20,0, 10,71, 10,60, 20, 87, 20, 71, 20, 80 


- La touche q sert a faire arreter le v : 


CHANCE!'!! "6; 


APPPUYEZ SUR ESPACE :":G60SUE 18 : 





?LV 


Le 


31A 


FU 


>IC 


>NK 








,20,89,60,-1,-1 
2080 PRINT A$::FOR I=1 TO 190:NEXT:SOUND 1,80,10,15,0,1 
,MUS: MUS=MUS+3 : RETURN 


2690 DATA 106,106,106,35,119,119,119,35,215,134,196,210 >6K 


,159,199,159,35,100, 100, 100,25, 106, 106, 106,35,199,119,1 
00,210,106, 106, 106, 35,119, 119, 119,35, 134,134, 134,35, 179 
,142,142,105, 199, 199,199,35, 179,179, 179,35, 179,179, 179, 
5, 106, 106, 108,25, 119, 119, 119, 35 
2100 DATA 179,134, 106,200, 119,119,119,25, 134,134, 134,25 
159,134,134,105,159, 159,159, 35,134, 134, 134, 70,159, 106, 
106,70, 201,159, 119,200, 134,134,134,35, 142, 142, 142,35, 15 
9,159,159,35,190, 159,159, 70, 142, 142, 142,35,134,134,134, 
55, 142,142, 142,70,159, 159, 199,70 
2110 DATA 169,142,142,200, 169,134, 134,35, 142,142, 142,35 
,201,159,134,105,142,142,142,35,134,134,134,35,119, 119, 
119,35, 106, 106, 106,35, 100, 100, 100,35, 179, 134,89, 210,89, 
89,89,35,179,134, 100,35, 106, 106, 106,35, 159, 100, 100, 70,1 
66,108, 106,35, 119,119,119,35 
2120 DATA 201,134,134,35, 142, 142, 142,35, 134,134,134,35, 
119,119,119,35,213,159, 106, 70,159, 159, 199,35, 190, 190, 19 
0,35,169,169, 169, 70,213, 169, 106,35,119,119,119,35,213, 1 
34,106,200, 159,159, 159,35, 100, 100, 100,35, 106, 106, 106, 3 


2130 DATA 159,119, 100,200, 106, 106, 106,35,119,119,119,35 
154,154, 154,35, 179, 142, 142,105, 199,159, 199, 35, 179,179, 
179, 35,179, 179,178,35, 106, 106, 108 35,119, 119,119,35, 179 
,134,106, 200, 119, 119, 119,35, 134,154, 134,35,199,134,1345 

,105,159,159, 15925, 134, 134,134,70 
2140 DATA 159,106, 106, 70,201, 199, 119, 200, 201,159, 100,35 
,213,159,106,35,239,199, 119,35,213,134,134,70,213, 142,1 
42,35, 268, 159,199,35,213, 169, 106,70, 239, 149, 169, 70,268, 
213,199, 300 


2150 FOR I=1 TO 3OQ0G:NEXT:RESTORE 2090:FOR NOTE=1 TO 89 > 


:IF INKEY(47)=0 THEN BORDER 26:RUN ELSE READ Mi,M2,M3,D 
UR:SOUND 2,M1,DUR, 15: SOUND 1,M2,DUR, 15: SOUND 4,M3,DUR, 1 
S:NEXT:FOR 1=1 TO 5000: NEXT:RETURN 

2160 RESTORE 22 

2170 READ L:1F L=-1 THEN 2160 


2180 IF INKEY(47)=0 THEN BORDER 26:FD0R H=1 TO SOOG:NEXT : 


:BORDER O:RETURN 
2190 READ M:SOUND 1,L#2, 
,7:6070 2170 


2200 DATA 71,20,80,20,71,50,80,20,89,20,95,20,106,20,11 : 


3,55,106, 90, 142, 20,159, 20, 142,50, 190,35, 179,35, 225, 60, 2 
13,80, 284,20, 319, 20, 284,50, 319,20, 358, 20, 379, 20, 426, 20, 
451,50, 426, 90 


2210 DATA 106,20, 119,20, 106,20, 134, 20, 106, 20, 142, 20, 106 


,20,159,20, 106, 20, 149,20, 106, 20,159, 20, 106, 20, 142, 20, 10 
6,20,134,20, 106, 20,426, 20, 104, 20, 379, 20, 106, 20, 338, 20, 1 
06,20, 319, 20, 104, 20 


2220 DATA 338,20, 106,20, 319, 20, 106, 20, 284, 20, 106, 20,134 > 


,40,106,40,134,40, 106,40, 100, 40,319, 40, 100, 40,319, 40,11 
9,40,142,40,119, 40, 142, 40, 106, 40,358, 40, 106, 40,358, 40, 1 
34,40,319, 40, 134,40, 319, 40 

2230 DATA 113,40,379,40, 113,40, 379, 40, 142, 40,358, 40, 142 
,40,358, 40, 159,40,451,40,159, 40,451, 40, 358, 40, 426, 40,35 
8, 40,426, 40,402, 40, 1073, 40, 402, 40, 1073, 40, 284, 100, -Le 


16. 


5: SOUND 2,L/2,M,5:SOUND 4,L,M > 


EY 


GE 


:TB 


>NG 


NL 


sv 
Lea) 
F 


?VN 


?EB 


E U 





Note : pour les CPC 464, modifier la ligne 90 
avant l'exécution : 90 GOSUB 20:m =VAL(e):1F 
1=2 THEN 120 

J e a ne D 1 ° S T E F A N O EXPLICATION DES LIGNES DU PROGRAMME 


Lignes 20 à 40 - Routine si déplacement négatif ; 
Lignes 50 à 120 - Routine lecture DATA traduction et affi- 





er 


DU OO 2 NH Y 4 | 
Do 2 t-il Le D SEL EE A chage page écran ; 
. : - - Lignes 130 à 160 - Définition variables et fonctions ; 
ASEMENT NAS S OBS A AE) MRRIES 19 Her ; 
M D M VU (4 “+ es Ligne 170 - Sauvegarde fichier IMAGE.BIN ; 
en LE ce 180 à 230 - Lecture DATA traduction et sauvegarde 
fichier MUSIQUE.FIC ; 


Lignes 240 à 280 - Lecture DATA traduction et sauvegarde 

foére GRILLEx.FIC ; 

Lignes 300 à 390 - DATA page écran ; 

Ligne 400 - DATA traduction musique ; 

Lignes 410 à 480 - DATA musique ; 

PORIREER 2e PRE. Lignes 490 à 1040 - DATA grille n° 1 à grille n° 10. 
LE LE LE) % # 

LÉLGAILL LS], 
mi EE 1% j 


CPTPT ONE AS #5 e MOTSCODE.BAS 
ES ES 44 








va 
REGLES DU JEU 
OTSCODE est un programme ui Dans les grilles du programme, toutes les lettres ont été rem- 
el taire | ll 4 lacées par des chiffres. Un même chiffre représente toujours 
vous aidera à faire les grilles de a même lettre. Le but du jeu est de reconstituer les mots au 


fur et à mesure que les lettres apparaissent dans la grille. 
Valable pour Au début du jeu, l'ordinateur vous affichera des lettres, puis 


MOTS CODES très simplement. 
CPC 464 


Le programme est composé de deux parties : CPC 664 il vous demandera un nombre et un caractère et il se char- 





+ CREATION.BAS crééra les fichiers : CPC 6128 era de placer le caractère à la position voulue en contré- 
- IMAGE.BIN, le fichier image écran ; | nt toute la grille. 

- MUSIQUE.FIC, le fichier notes de musique en En haut à droite de l’écran apparaissent les lettres inutilisées. 
stéréo :; A droite de l’écran, une grille vous servira d’aide-mémoire, 
- GRILLEx.FIC, les fichiers grille 1 à grille 10. les lettres y seront affichées et modifiées selon vos directives. 











COMPILATION 


Souvent réclamées, voici les compilations de CPC. Vous 
y trouverez les listings des anciens numéros ainsi que cer- 
tains articles de fond. 


fi 
4 #> 









A posséder absolument ! 


EEE 


Compilation 1 

n° Fa 4) 80 F 
Compilation 2 

(n° Pa 8) 80 F 
Frais de port 10% 




















Nom : 


e 

e 

e A 

pe Prénom : 
e 
e 
e 





e Code Postal : 
e Ville : 


Pa Date : Signature 


© Merci d'écrire en majuscules. 
as Ci-joint un chèque libellé à l’ordre 
des Editions SORACOM 


La Haie de Pan 
35170 BRUZ 





LISTE DES VARIABLES 
VARIABLES ENTIERES 


A, € = Calculs intermédiaires 
= Encre du stylo 1 

Sauvegarde valeur case pour modification 
Contrôle erreur 

Numéro de la grille utilisée 

Paramètre valeur case, nombre choisi 
= Boucles de travail 

Largeur grille 

Longueur grille 
x, y) = Valeur des cases de la grille. 


VARIABLE REELLE 
Z = Vidage buffer chaîne pour éviter GARBAGE (remplis- 
sage de la mémoire) 


VARIABLES CHAINES 

= Nombre choisi 

Caractère choisi 

Chaîne intermédiaire 

Nombres et caractères donnés par l'ordinateur 
Caractère à afficher en haut à droite de l’écran 
Réponse de la grille 

Caractère à afficher à droite de l'écran 

Toutes les lettres de l'alphabet 

Chaîne de recherche pour modification 

Tous les nombres choisis 

Tous les caractères choisis 

Message à afficher par TAG 

Y = Message question, réponse 

T(x) = Lettres A l'alphabet. 


FONCTION 
FN(x,y) = Suppression de la chaîne YŸ à l'intérieur de la 
chaîne X. 


OTATIOMOX 
KI -r nul 


X£<CHN7DvOZZ 


CRU lnne 


EXPLICATION LIGNES DU PROGRAMME 


Lignes 20 à 50 - Routine d'affichage par TAG 

Lignes 60 à 150 - Routine d'affichage à l’intérieur des grilles 
Lignes 160 à 200 - Routine d'affichage dessins grilles et 
vidage buffer chaînes 

Lignes 210 à 260 - Routine d'affichage questions et réponses 
Lignes 270 à 280 - Routine modification chaînes si modifica- 
tion de caractère 

Lignes 290 à 300 - Définition variables et fonction 

Lignes 310 à 330 - Lecture fichier MUSIQUE.FIC 

Lignes 340 à 370 - Lecture fichier IMAGE.BIN et affichage 
écran 

Lignes 380 à 460 - Interprétation musicale sur les 3 voix 
Ligne 470 - Suppression tableau C{x,y) et réaffectation des 
encres 

Lignes 480 à 510 - Choix de la grille du jeu 

Lignes 520 à 620 - Lecture fichier grille et affichage écran 
Lignes 630 à 730 - Boucle principale 

Lignes 630 à 670 - Choix du nombre 

Lignes 680 à 710 - Choix du caractère 

Lignes 720 à 730 - Gestion des choix et de la grille 
Lignes 740 à 780 - Contrôle si grille correcte 

Lignes 790 à 800 - Affichage solution si nombre choisi = 0 
Lignes 810 à 840 - Fin du programme 


CREATION GRILLE 
Pour créer des grilles, utilisez le programme CREAT.BAS 


Mettre à la ligne 30 : i={numéro de la grille). 

A la ligne 100 : DATA (nombre de colonnes), (nombre de 
lignes). 

De la ligne 110 à la ligne 330 : mettre en DATA les valeurs 


de chaque case ligne par ligne selon le tableau ci-dessous. 
A la ligne 340 : DATA (nombres), (caractères) donnés par 
l'ordinateur. 





(0 


A la ligne 360 : DATA (sglution de la grille). 


Note : le nombre de colonnes doit être inférieur à 16 et le 
nombre de lignes doit être inférieur à 24. N'oubliez pas de 
supprimer tous les REM. 


Valeurs 


012345678910111213 14 15 16 17 18 19 20 
21 22 23 24 25 26 


Codes 
à ABCDEFGHIJKIMNOPQRSTUVWXYZ 


Exemple : 
Vous mélangez les lettres de l'alphabet : 


ACEGIKMOQSUWYBDFHIJILNPRTVXZ 
A chaque lettre, vous attribuez un chiffre de 1 à 26 
ACEGIKMOQSUWYBDFHILNPRTVXZ 


12345678910111213 1415 16 17 18 1920 21 
22 23 24 25 26 


Ensuite, il suffit d'établir la correspondance avec le tableau 
de codage donné plus haut, c'est-à-dire : 


ACEGIKMOQSUWYBDFHIJLNPRTVXZ 


12345678910111213 1415 1617 18 1920 21 
22 23 24 25 26 


ABCDEFGHIJKIMNOPQRSTUVWXYZ 


Ensuite, vous entrerez de manière codée les lignes de la grille 
dans les DATA à partir de la ligne 110. 

Dans une grille 10x10 avec le mot CHOIX dans la première 
ligne, il faudra entrer en DATA : 


DATA GBQEY @G@@@@ 


Les symboles @ ou à (AZERTY) constituent les pavés de sépa- 
ration sur la grille. 
En ligne 340, les nombres et caractères sont les indices don- 
nés au début du jeu. En utilisant le mot ‘’CHOIX'’ comme 
indice, on entrera 


340 DATA 2, C, 17,H, 8, O, 5, 1, 25, X 


Enfin la solution de la grille est la série de lettres de l’alpha- 
bet mélangés. 


Lancement : 
Il faut taper et sauver les 3 programmes : 


CREATION.BAS, MOTSCODE.BAS et CREAT.BAS 


Lors de la première utilisation, c'est le programme CREATION 
qu'il faudra lancer. Ensuite, un RUN ‘’MOTSCODE"’ débu- 


tera le jeu. 
CRE 
RTE 
15 GOTO 130 
29 e=FNè:f="-" 


Li 
CA 
à 


5 IF FNiS:O THEN J=jtliezetFNdi GOT : 


à 0 


Es € En 


0 30 

40 #="MFSR": RETURN PU 

90 MOVE mn:FOR i=i TO l:READ d:FOR >VJ 
j=1 TO LEN(d):1=FNi 

60 IF 1=3 THEN k=k+{:m(k)=XPOS:n(k) >UZ 

=YPOS:G60TO 120 

70 IF 1=4 THEN MOVE m{k),n(k):k=k-1 LP 

:G0T0 120 

80 IF 1430 THEN j=j+i >NA 

90 GOSUB 20:a=VAL (e):1F 1=2 THEN FI >QQ 

LL m:60T0 120 

100 j=j+1:G0SUB 20:n=VAL(e):1IF 1=1 JF 

THEN MOVER m#16,n*16:G0T0 120 

110 DRAWR nxib,n#16,1 ?PG 

120 NEXT:NEXT:RETURN >RV 
130 DEFSTR d-f:DEFINT i-n:DIM m{27) CT 
140 DEF FNd=MID#(d, j,1):DEF FNi=INS >NK 
TRS, FNd) 

150 MODE 1:MOVE 0,48,1:DRAWR 639,0: }VQ 
DRAWR 0,303: DRAWR -639,0:DRAMR Q,-3 

03 

160 m=96:n=206:1=4:GOSUB S0:m=541n= >VL 
64:1=6:GOSUB 50 

170 SAVE"image.bin",b,&C000,&4000  >DN 
180 CLS:LOCATE 6,12:PRINT"'SAUVEGARD >NK 
E FICHIER EN COURS"+CHR$ (7) 

190 nti)=b2:n(2)=92:n(3)=92: f="@ABC >KA 
DEFGHIJKLMNOPQRSTUVHXYZ" 

200 FOR i=1 TO 27:READ m(i):NEXT:0P >DL 
ENOUT"ausique. fic" 

210 FOR i=1 TO 3:WRITE#9,n(i):FOR m >XJ 
={ TO 4:READ d: j=0: FOR k=1 TO ni): 
j=i+1 

220 e=FNd:IF FNi=0 THEN n=VAL(e)-1: HE 
j=jH1:FOR 1=1 TO n:MRITE#9,m(FNi)sk 
=k+1:NEXT 

230 WRITE#9,n(FNi):NEXT:NEXT:NEXT:C >GA 
LOSEOUT 

240 FOR i=1 TO 10:LOCATE 5,12:PRINT }VT 
"SAUVEGARDE GRILLE No“: is"EN COURS" 

250 OPENOUT"grille"+MIDS (STR$(i),2) >QL 
+". #ic":READ mn: WRITE#9,m,n 

260 FOR k=1 TO n:READ d:FOR j=1 TO >UB 
n:e=FNd:WRITE#9, ASC (8) -64:NEXT:NEXT 

270 READ m:WRITE#9,m:1F mC>-1 THEN FX 
READ e:WRITE#9,e:G0TO 270 

280 READ e:WRITE#9,e:CLOSEOUT:NEXT FE 
290 CLS:LOCATE 6, 12:PRINT"SAUVEGARD >LM 

E FICHIERS TERMINES" : END 

300 DATA -1107102-251022101-10-1223 >FR 
03-30-3-2-2-30-33SM1-15M205031 1100- 
3-1-1-10M-310-3-205-1102-10-110-4-2 
OSMO1F3 

310 DATA RO710R04-1-1R1-1101103-11R >NP 
032230M0-1F2R03R1-1102210M-1-1F2 

320 DATA M9002401-111402-20-1-10-11 >EA 
-10-1-15202-20-2-1-1-40-2201101-151 








qu 011-20-115-11-105-110-451-10-1-405- 


11011003-109-11M10F3 

330 DATA R02600-2R011005-100-1R0-11 PL 
ORO1-10M-10F2R021 140R$-100-1R1-1101 
1-11R1-120M0-1F2 

340 DATA -225-110322402-222303-30-3 RJ 
-2-2-30-33M1-19M200311100-3-1-1-105 
M-31025-10-11-20-1-10-352011101-10- 
1-1-1-40M01F3 

350 DATA R1-1201110R01R1-1101103-11 FL 
RO32230M0-1F2R032240M0-1F2 

360 DATA M9101503-30-3-2-2-505-1101 >HC 
1004-11M4-1100-3-1-1504M-10F3 

370 DATA R0-1101103-11R011005-10015 >HX 
OMO-1F2 

380 DATA M2101701-111402-20-1-10-11 3QL 
-10-1-18202-20-2-1-1-40-2201 101-151 
011-20-115-11-105-11-101-190-2101-1 
0-2-705-11011004-11M5-40-15-11510M0 

1F3 

390 DATA RO-2300110R1001R011005-100 DVU 
1700-2R-100-1-100210R01-10M-30F2R02 
1140R5-100-1R1-11011-11R1-120M0-1F2 

400 DATA 0,1,12,30,60,84,95, 106,119 >W 
,127,142,159, 190,213, 239,253, 284,31 
9,338, 379,402, 426,478, 506, 568, 38, 6 

76 

410 DATA MKJIMKJI2H2I4JMJIHMJIH262H UE 
412FEF262K2H6H412JIJGIKL2K2J2K 

420 DATA DCDCDCDCDCDCDCDCDCDCDCDCDC >C@ 
DCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCD 

C 

430 DATA 9B9B9B9B9B9BER, 3AGSAR7ARSA GK 
ESAR7A2E2ARTA2E2ARTA22ARTARTAE 

440 DATA Y2OU20Y2OU20X2NY20U2PU2PR2 >GL 
NU2NR2NUZNW2QX 2NY20Y20V2NX 2NW20520X 
2PL2PW2RW2RU2PV2PW2QV2QX 2QU2N20 

450 DATA 9C9C9C9C9C9C9C9C9C9CDC, 989 ?GE 
B9B9B9B9E9B9B9B9B2B, 98787897898909 
e7e7ene 

460 DATA O9QSGSRSQURSPSRSPSRSUZRIQS >KK 
RSUSQ6S6T 6RIU6S2R20, 1C9C IC CIC CIC 
C9C9CDC 

470 DATA @2Be2B@252pe7B&2Be7B@2R6? >RH 
Be?BE7RE?B?Re2B7Be2PR2B7BR2B87B8 
2BR2B2B62B@2p87B@25e7B82B4B 

480 DATA A28A28A28A70A28A78A28A78A7 V6 
BA2A28A78A28A28A78A28A78A28A28A76A 
2RA28A28A28A28A28A28A70A76A78A0 

490 DATA 15,23, 8A@Q@WEAGARDEVE, NSSI PV 
QIECEQNXGNK, GSRTRAREREREQBE, TEHAPBE 
FEWECIP . 

500 DATA EQCEHEARL &V@PE, ABLEPIEPEA EN 
DDIDE, 0ReeGeeecepeee, VEDVCEGAMEPAT 

EH 

510 DATA GODENERRDRRRURCE, EJICEARCAD >EM 
REMNI, 86RUGDEJP&RTE, VNBADDEBHKELM 


[4 





EH 

520 DATA GUBSF@AGCEE 8e, SAIM@FEGHE >EH 
RYIME, EVENGEGHBGGEREE, HIROIROI@ACAH 

ME 

530 DATA EEDGOGERWERGNE, VNODDEGNGZ ;EF 
ENBIS, IGERBRORE@ARDE, APACKDEHEQAD 

EH 

540 DATA @W@I60RCB&DECE, GHOPQLEEJI >GN 
TIGCE, ERE@EBESEDEEe 

550 DATA 1,4,2,7,3,L,4,5,-1,ATLSEZB >DA 
RIXYHMOUNCQF GKPDWVJ 

S6ù DATA 10,23, ABCDCRECKS, B@F@AGCAC >yx 
e, JOGPFONCJR, K&H@E er 8DE, GE IFE@ML J 

570 DATA @eF@D@G@ME, NOEODLJFGE, 06e >HR 
FéLeeG, ACED@UEF IF, DéF@F@R&F, LIRFTO 
DLCJ 

580 DATA F@GKECRAE, QOLEFVEOL, DBE >JV 
PEGRES, ILFJEWFGRL, D@DEOREEC, XLONON 
YFFJ 

590 DATA @JeLeCenee, ZFJ6KEZADF, @E6G >HF 
e06B@I , UOLPOJROMF , 8J@FERPEH, CDFEGL 
NFEF 

600 DATA 1,F,2,H,3,0,4,7,-1,PHOTREU >DD 
VLNCIGBASHDKXFQJZHY 

610 DATA 10,23,ABCDE@MPAI,EE6CEEER >YR 
@,FBJECIKILG, DRIREAGQE, EHGKI@CIH 

420 DATA G6GRERJRFE, EMIRXCIGGI, Té@& >JM 
1eR&EF, BLSIGIOPCI,L1@GR8eI@, UITERQ 
NEXI 

630 DATA ERF@JRERI@, LBRTERMILE, QF@ >JF 
RGFQUE, IFIH@WITIF, ERGREBRER, ZRFEHH 
PURI 

640 DATA @W@F@HER&R, ZBT&EPDPUB, CRE 
@LURA, EYYCPXIELE, @PAGBREKEI , HEDBOI 
HHBF 

850 DATA 1,P,2,0,3,L,4,K,5,A,-1,POL HN 
KARTSEYMNVHX ICUZBDOMGF J 

660 DATA 10,23, ABCDEGGPOF, BD@I@EEQ >YD 
@,FHBIIEHGFI, G@F@J@GeLE, ETCDFGEQFR 

670 DATA GD&ARERER, KLEMEHAFHE, L@8@ >HQ 
Je06eJ, BHSEREADRE, NEE&KBGRBE, HUMNUB 
MOHE 

680 DATA ERDFVESE, JEHKEBAJEK,FES@ >HM 
H@UBLE, EWEE@XEHEA, @JMSE@Re0, YBLBHA 
FEJG 

690 DATA @TEF@ATER, PFI@NELAET, 8M8Z DHY 
eJ8JeD, GFMDLOAEDJ, GAREY6MEO, ZEAERE 
YEFL 

700 DATA 1,7,2,0,3,0,4,U,5,E,-1,T0Q HI 
UELSNFRCLMHAKZGDXHYPBV] 

710 DATA 15,23, 606B6B@RBIEFQR, EBDZ NR 
FGHD&DHGBDZ, @JeBABE] @F@P RFA, DHDNBJE 
MFNGBJHD 

720 DATA @G@F@I@MEF &ABL €, MODIGNIHEG )EV 
BFODH, EL é@8F e86B80BEE, RHDRJH@EBJILM 

FH 

730 DATA @L@IB@BE&RH@GE, HYFJ8ABCRD )EE 


ee 


32 


&JIIK, RCEHECEL EREL €, RXXBFDHECFCEG 
FH 

740 DATA @JEG@HEMRGNRER, REMPOLJJH : 
EQBRK, MEBRE I B6RHE]E, RP IRPIMESIJL 
TH 

750 DATA E66RL @BIGRRTE, DFKFKF@QPV 
MFULH, @GRH@MBHGB@NEGE, ENIGFMHDENHGO 
FJ 

760 DATA EDAGGF@M@HB@UR, TEGHNHEEUL 
BDFLT, é08EDEGD@HEHE 

770 DATA 1,8,2,4,3,2,4,R, -1,BAZRJIN : 
EOLKUSGTHPCUMQYNF XD 

780 DATA 10,23, ABCDAGEDHF, CPEB@BP > YR 
@,EDIF JDGGFK, F&I @0RC@PE, FRPAFK@DAN 
790 DATA @6GEK@K@AG, FMQJBABOPF, 5668 } 
JeEeen, RKPSENLDGF , ABJRDRRREE, PJUPKV 
FKPF 

800 DATA T@AP@Z@FE, NGNKFEDYNK, FFE >JU 
UBMEGE, KDKFEFGMFK, ETESEHEGEN, NNIPEP 
DPKF 

810 DATA @D6ARIAGE, ZKNGRFYPYF, F@P 
eVEDEZ, EABXJFGTNF, AGDE JENEJ, WFNJEM 
KFHF 

820 DATA 1,L,2,0,3,Y,4,A,-1,LOVACES > 
VDNRKTUG IHPXQFMJUZE 

830 DATA 15,23, 6R@BGEL HIEIE, EIPC > 
FIQIGBEEIX1, eQRF@NEGEYEVENE, NDPGHIE 
HVDGF IPX 

840 DATA @F@D@ERI@HEAGAR, RHDEFAIGEI EM 
VICIG, 6F6R166FQ66e, LBGGIGENGIJ16 
FI 

850 DATA @HRI@G@R@RGERER, KIIJGABCDE ? 
ERGDN, BRGHEMEI EF 8G@FE, NOBAAF ABKBF UV 
F6 

860 DATA @D@GFAYF @P&RE, DLPAGHGINA 
@EDGZ, EL EPECEVREZEBE, GSARF TPIGHGF J 
JI 

870 DATA eeF@PER@R6RRIE, QDPAAI@NFV FE 
DMERR, JEURGEBEVEBEF €, BJJRGIFVEINVP 

AI 

880 DATA @D&FVEF eGV@Ae, FADGIVEUGF 6H 
NDRI6, 8IRIR1RI@I@F5e 

890 DATA 1,5,2,A,3,V,4,0,5,N, -1, SAV 
ONIRGEP JBWCHUMTYQFLKXZD 

900 DATA 14,17, 8J8JTEFGR@HE, @IJKG GL 
TFELEHEF , ABCDE&DKBHMUNE , EL @F@GEMC 
KKEF 

910 DATA OTEGECLEPBRI, JAQLBHJOTR >ZB 
CEF, @SBCN&JP@LCO@B, K@KEF @0T EF @BP 

920 DATA BOES@APHDELEFE, EBF@MJSJLFE AT 
PEO, BLOL TBKEOGAET, FEDEJPTF@D.JTP 

930 DATA ELETPGEFBLGLE, ABCLAQEIEKE >AQ 
LJO, EGREQ6FOLEFER0, DTNPEFEDJCLPE 

940 DATA @PEEFGGEFBKITF, 1,C,2,0,3,U >VW 
,4,P,5,E, -1, COUPESDMVALRBGTNHQZ 

950 DATA 15,15,EFGFHIJK@EKHKDC, LMFH NP 
K&FNLDECD&B, HLOCR@ECBKDBKES, HCKJ.JKE 


5FK 


>HM 


s 


Ha: 


A DPKECHK 








960 DATA KB@CGF@DK@ARCD, PKEKDFHK@D EL 
FEGKK, AGADKBKDKEFMKBS, KOCR&CJ JAKCE 

Je 

970 DATA @FJJCJ@RDLCOKER, ADCLNRDKH >FW 
HKEFC, DCRLGK@L @CEDFRS, RKH@F @NAHKGED 

KF 

980 DATA FAKDEGKPKEKDKED, CJ@FPCHK8@ >GD 
GFGKD, BKEJEBKBCBKEKGK 

990 DATA 1,U,2,N,3,1,4,R,-1,UNIRCAT >U0 
LYSEOVMPGDRZ 

1000 DATA 14,17, ED@E@B&F 6BEG&F, CHIJ HF 
BKLJ@JMIFK, @JNNJECOJLHJEJ, BNJKLAGJF 
AJECL 

1010 DATA GPHFAJHFEKGJME, GREJJEAJER 
BABC, @LBEHGJFKLABNK, JDHIFF J@PCNJA 
1020 DATA GHLABKAARKF JET, LJKAAJ@KLA 
KAGJ, BBGRHFLJJAGGRE, GCKF JERAAHJEGC 
1030 DATA GERGERLG@JOKCL, PRLERF@JAA 
JHNJ, EBECKEKA JEKNEA, CEGKAJF BOCNJGA 
1040 DATA @JFAJAGNJARAHS, 1,5,2,F,3, 
A,-1, SPAQDRTUBE INML VC60@ 


AB 
AT 
>AG 


>HQ 


10 GOTO 290 

20 PLOT @,385:G0TD 50 
30 a=j#32: IF LEN(x)=1 THEN a=a+8 ?1B 
40 PLOT a,367-i#16,b >NQ 
S0 TAG:PRINT x3: TAGOFF : RETURN AJ 
60 t(h)=n:v=v+STR$(h):w=winsuzut+RIG >WD 
HT$(STR$ (h),2) 

70 q=" ":s=n >BA 
80 b=3:IF ASC(n)>64 THEN b=1 ?V6 
90 FOR i=0 TO 1-1:FOR j=0 TO k-1:1F >YN 
c(j+i,i+i) 3h THEN 120 


TA 
>P4 


100 IF h>9 THEN x=" ":GOSUB 30 »XL 
110 x=n:60SUB 30 ?LK 
120 NEXT:NEXT:c=h:a=550: IF h>13 THE >TN 
N c=c-13:a=614 

120 x=5:PLOT a,222-c#16,1:60SUB 50 >Bk 
140 a=27+INSTR(t, t(h)):LOCATE a,1:1 ET 
F a>40 THEN LOCATE a-13,2 

150 PRINT q:RETURN >PA 
160 FOR i=0 TO 1:MOVE 0,369-i#16:DR NT 
AWR k#32,0,1 

170 IF i<5 THEN MOVE 510+i#32,0:DRA JL 
WR 0,208 

180 IF i<14 THEN MOVE 510,i*16:DRAW >HD 
R 128,0 

190 IF i<k+i THEN MOVE i#32,369-1#1 >QC 
6:DRAMR 0,1#16 

200 NEXT:2=FRE ("") : RETURN >WD 


210 PRINT CHR$(7):x="APPUYER SUR UN BC 
E TOUCHE":60SUB 20 


10 


' 








220 CALL &BK06:60T0 260 
230 PRINT#1,y+" DEJA CHOISI": x="VQU 
LEZ-VOUS MODIFIER D/N":G0SUB 20 


240 o=UPPER$(INKEY$):1F o=""OR INST }ZX 
R(*ON",0)=0 THEN 240 
250 IF o="0" THEN e=i 2NG 


260 CLS#1:x=STRINGS (27,32) : GOSUB 20 
RETURN 


270 v=FNx(v, STR$(h))sw=FNx(m, th): oLY 
U=FNx (u, RIGHTS (STR$ th),2)) 
280 n=MID$(STR$(h),2):5=" "rq=t(h): >AP 


GOSUB 80: e=0: RETURN 

290 DEFINT a-l:DEFSTR m-y:DIM c(3,4 >NM 
,92) (26) 

300 DEF FNx(x,yI=LEFTS (x, INSTR(x, y) GP 
=1) 44108 (x, INSTR (x, y} #LEN(y)) 

310 MODE 1:LOCATE 8,12:PRINT"LECTUR >CW 
E MUSIQUE EN COURS" 

320 OPENIN"nusique. fic":FOR i=1 TO 
3: INPUT#9,a:FOR j=1 TO 4:FOR k=1 TO 
C| 

330 INPUT49, ci, j,k):NEXT:NEXT:NEXT 
:CLOSEIN 

340 MODE 1:LOAD"image.bin", &C000 
350 LOCATE 2,2:PRINT CHR$(164)+"DI 
STEFANO Jean Franck NOVEMBRE 1987" 
360 LOCATE 2,24:PRINT"APPUYER SUR U 
NE TOUCHE POUR CONTINUER" 

370 INK 2,20,6: INK 3,6,20:SPEED INK >GQ 
45,45 

380 FOR i=1 TO 3:bli)=0:g(i=0ih(i) JE 
=0:NEXT 

390 hi=b:1F b(1)+b(2)4b(3)>=246 T LC 
HEN FOR i=1 TO 3000:NEXT:G0TD 380 


400 IF INKEY$C""THEN 470 ?TF 
410 h=MIN(h(1),h(2) ,h(3)):i=i: j=1  AF 
420 IF h=h(2)THEN i=2: j=2 ELGE IF h >UP 
=h(S)THEN 1=3: j=4 

450 b(i)=b(i)+isa=b(i):b=h(i) #WY 


440 IF gli)=1 THEN g(i)=0:aza-1:S0U 
ND j,1,1(1),0:b=b+i(i):b(i)=a:G60TO 
390 

450 IF c(i,4,a)=0 THEN c=ROUND(c(i, >J2 
2,a)#0.8):iti)=c(i,2,a)-c:qli)=i EL 

SE c=c{i,2,a) 

460 SOUND j,c{i,l,a),c,c(i,3,a):b=b >NM 
+c:G60T0 390 

470 ÉRASE c:INK 2,20: INK 3,6 VE 
480 MODE 1:WINDOW#1,1,27,1,1:WINDOW >NQ 
#2, 92, 40,5, 11: t="ABCDEFGHIJKLMNOPOR 
STUVWXYZ" 

490 PRINT'MONOCHROME Qui - Non“:606 > 
UB 240: INK 3,6:1F e=1 THEN INK 3,13 


300 CLS:PRINTHL,CHR$(7)+"QUELLE GRI >HH 
LLE (1-10"; 2: INPUT#1,") "5 
910 g=VAL(m):1F g<1 OR g>10 THEN 50 >BL 


0 

920 e=Qip=""sr= "tive" time" eus"" }1J 
930 LOCATE 28,1:PRINT LEFT$(t,13):L MX 
DCATE 28,2:PRINT RIGHT$(t,13) 

940 OPENIN"grille"+MID$ (STR$(g),2)+ >DF 
"fic": INPUT#9,k, 1 


990 DIM ck,1):FOR 1=0 TO 1-1:FOR j >WF 
=0 TO k-1: INPUT#9, x 

d60 b=S:IF x="0" THEN x=STRING$ (2,1 JA 
43) :b=2 

370 GOSUB 30:c{j+1,i+1)=VAL(x):NEXT >KG 
:NEXT 

980 INPUT#9,h:1F h-1 THEN INPUT#9 DUX 
n:p=p+STR$(h)tn:60SUB 60:G0T0 380 

990 INPUT49,r:CLOSEIN RU 


600 FOR i=0 TO 12:x=MID$(STR$(i+1), >LN 
2):PLOT 510,206-ix16,3:G0SUB 50 

610 x=MID$(STR$(1+14),2) :PLOT 574,2 } 
O6-1#16:G0SUR 50:NEXT : x=CHR$ (13) +CH 
R$ (10) 

620 LOCATE#2, 1,3:PRINT#2, "APPUYER"+ 
xt" SUR"+x+"<ENTERS "+x+" APRES" +x+ 
" VOTRE" +x+" CHOIX" 

630 GOSUB 160: y=CHR$ (7) +"NOMERE" 
640 PRINT#1,y3: INPUTH#I,m:1F m="0" T 
HEN 790 

850 h=VAL(m):1F h<1 OR h>26 OR INST : 
R(p,STR$(h))€>0 THEN 640 

660 IF INSTR(V,STR$(h))<;0 THEN G60$ : 
UE 230:1F e=0 THEN 640 

670 IF e=1 THEN GOSUB 270:t(h)=n:60 >HU 
T0 830 

680 y=CHR$(7)+"CARACTERE" >UG 


?BE 


690 PRINT#1, "NOMBRE?" 5h; :LOCATE#1,1 >BK 


2,1: PRINT#1, vs: INPUT#1 ,n:n=UPPER$ (n 

) 

700 IF INSTR(t,n)=0 OR INSTR(p,n)<> >MZ 
0 THEN 690 

710 IF INSTR(w,n)<>O THEN GOSUB 230 
:IF e=0 THEN 690 

720 IF e=1 THEN d=h:o=n:h=VAL(MIDS( AW 
u, INSTR(W,n)#2-1,2)):GOSUB 270:h=d: 
n=0 

720 GOSUB 60:IF LEN(Ww) {LEN(r)THEN 6 à 
30 

740 PRINT#1,"GRILLE TERMINEE":GOSUE JM 
210 

750 PRINT#1,"VERIFICATION DE LA GRI 
LLE":60SUB 210 

760 FOR h=1 TO LEN(r):1F t(h)<MID$ >@K 
(r,h, L)THEN d=h:G0SUB 270:h=d:e=1 

770 NEXT:IF e=1 THEN PRINT#1,"GRILL >YM 
E INCORRECTE": GOSUB 210:e=0:G0T0 63 
0 

780 PRINT#1,"GRILLE CORRECTE BRAVO" 
:60T0 810 


>K 


790 FOR h=1 TO LEN(r):1F th) OMIDS FU À 360 DATA : ‘solution grille 











Ho: 


{r,h,L)THEN t(h)=MID$(r,h,1):n=tth) 
:60SUB 70 

800 NEXT:GOSUB 160 NT 
810 GOSUB 210:CLS:LOCATE 3,10:PRINT CN 
VOULEZ-VOUS FAIRE UNE AUTRE GRILLE 

820 LOCATE 15,12:PRINT"Qui - Non"+C >\T 
HR$ (7) :GOSUB 240 


830 ERASE c:1F e=t THEN 500 UF 

840 ERASGE t:CLEAR:MODE 2 :TXe 
Sn 

19 DEFSTR d-#:DEFINT i-n ?TG 

26 DEF FNd=MID$ (d, j,1) >QT 

30 i= : ‘numero de la grille +JA 


4û LOCATE 5,12:PRINT'SAUVEGARDE GRI EU 
LLE No";i;"EN COURS" 
50 OPENOUT"grille"+MID#(STR$(1),2)+ 2PZ 
".fic':READ m,n:WRITE#9,mn 
60 FOR k=1 TO n:READ d:FOR j=1 TO m 
1e=FNd:WHRITE#9, ASC (e)-64:NEXT:NEXT 
70 READ m:WRITE#9,m:1F m<i-1 THEN R >DJ 
EAD e:WRITE#9,e:G0TO 70 
80 READ e:WRITE#9,e: CLOSEOUT:NEXT 
90 CLS:LOCATE 7,12:PRINT"SAUVEGARDE 
GRILLE TERMINEE": END 
100 DATA : ‘nombre de colonnes,nombr > 
e de lignes 
110 DATA : ‘ler ligne de la grille 
120 DATA : ‘2eme ligne de la grille } 
150 DATA : ‘3eme ligne de la grille 
140 DATA : ‘4eme ligne de la grille 
150 DATA : ‘5eme ligne de la grille 
180 DATA : 'beme ligne de la grille 
170 DATA : ‘7eme ligne de la grille 
180 DATA : ‘8eme ligne de la grille 
190 DATA : ‘9eme ligne de la grille 
200 DATA ‘0eme ligne de la grille 
210 DATA ‘ileme ligne de la grille 
220 DATA ‘2eme ligne de la grille 
230 DATA ‘1Seme ligne de la grille 
240 DATA ‘ideme ligne de la grille 
250 DATA ‘iSeme ligne de la grille 
260 DATA ‘ibeme ligne de la grille 
270 DATA ‘7eme ligne de la grille 
280 DATA ‘iBeme ligne de la grille 
290 DATA ‘9eme ligne de la grille 
300 DATA ‘2Züeme ligne de la grille ?AB 
310 DATA ‘2ieme ligne de la grille 
320 DATA ‘22eme ligne de la grille 
330 DATA ‘23eme ligne de la grille 
340 DATA : ‘nombres,caracteres donne 
s par l'ordinateur 
350 DATA -i: ‘fin de donnees 


#VN 


?E1 
>GM 


AE 
>HD 


ME 
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SERVEUR 
MINITEL 


N'oubliez pas 
36.15 code MHZ 


La B.A.L. permet un dialogue direct avec 
la rédaction. 

Les petites anñonces ouvrent la porte aux 
bonnes affaires | 




















cn. ] Hors série n° 2 ... .13F 
L Hors série n° 3 L) Hors série n° 4... 15 F 
| Hors série n° 5 L] Hors série n° 6 15 F 
I C Hors série n° 7 .C] Hors série n° 8  15F 
[) Hors série:n° 9 3e 15 F 
| L) Disquette HS 1 [] Disquette HS 2... 140 F 
[1 Disquette HS 3 L] Disquette HS 4... 140F 
I ] Disquette HS 5 [1 Disquette HS 6..140F 
Disquette HS 7 Ü DA HS 8..140F 
I O Disquette HS Orne 140 F 
Î Chaque disquette comporte tous les programmes 
I du n° hors-série correspondant. Les abonnés à CPC 
bénéficient du tarif unitaire de 110 F pour les 
I disquettes. 
Nom .... 
I Adresse: ::::::1.:2hsnemiuarertane 
Code postal 
Ville’: 0e 
| Signature 
I Merci d'écrire en majuscules. 
Ci-joint un chèque libellé à l'ordre des Editions 
I SORACOM. Retournez le coupon ou une photocopie 


à Editions SORACOM - La Haiïe de Pan - 
35170 BRUZ. 


AU 3 
+ HIVER 


: 


LI Î 


Ù 


+ L 

1, Hombre 
| [A LA 
1 


# F 


Je «4 
: S ST LE 


le Cour 


(172 


PUZZLE 


{ü CLS 

20 h=17500 

30 FOR i=0 TO 409 

40 1=i#10+300 

90 READ a1$,a2$,a3$,a4$,a5$,a6$,a7$, a8$ 
aff 

60 ai=VAL("&"4+A1$) : a2=VAL ("&"+a2$) : a3=V 
AL ("R"+a3$) : a4=VAL ("&"+a4$) : a5=VAL ("&"+ 
a9$) : ab=VAL ("&"+a6$) : a7=VAL ("&"+a37$) : a8 
=VAL ("&"+aB$):af=VAL ("&"+af$) 

70 an=al+a?+a3+ad+a5tabta7+al 

80 IF HEX$(an)=HEX#$(af) THEN 90 ELSE PR 
INT'erreur en ligne ":;1:END 

90 LOCATE 5,10:PRINT"ligne numero : ":1 
100 POKE h+0,al 

110 POKE h+1,a2 

120 POKE h+2,a3 

130 POKE h+3,a4 

140 POKE h+4,a5 

150 POKE h+5,ab 

160 POKE h+6,a7 

170 POKE h+7,a8 

180 h=h+B 

190 NEXT 








M::: le soleil qui frappe 


votre moniteur et le sable 
qui s’est infiltré entre les 
touches du clavier, vous 
continuez à sourire 
béatement devant un casse- 
tête informatique. Le principe 
est très simple : l’ordinateur 
mélange des carrés de 
couleurs, votre tâche consiste 
à former une figure en 
déplaçant ces petits carrés. 
Et cela est loin d’être 
évident. 
Tapez et lancez le 
programme PUZZLE. Celui-ci 
va sauver un PUZZLE 1.BIN. 
Il ne reste qu’à taper 
PUZZLE 2, à le sauver puis 
à lancer le tout par un RUN 
‘PUZZLE 2”. 


200 SAVE "puzzlel",b,&445C, 3283 

300 DATA CD, DS, 4A,3E,01,CD,0E, BC, 3C0 
310 DATA 3E,00,01,0A,0A,CD, 32, BC, 20E 
320 DATA 3E,01,01,03, 03, CD, 32, BC, 201 
330 DATA 3E,02,01,09,09, CD, 32, BC, 20E 
340 DATA 2E,03,01,00, 0C, CD, 32, BC, 215 
350 DATA 3E,00, 32, Bb, 03, 32,87,03,215 
360 DATA 32,B8,03,32,89,03,CD, 71,319 
DATA 48,CD,DE,4E,CD, 14, BC, SE, 41F 
DATA 45,CD, 20,49, 3€, 3C, CD, 20, 2E2 
390 DATA 49,3E, 3D,CD, 20,49, 3E, 35, 26D 
DATA CD, 20, 49,3E, 47, CD, 20,49, 2F1 
DATA 3E,3F,CD,20,49,3E,3E, CD, 2FC 
DATA 20,49,3E, 37,CD, 20,49, 3, 252 
DATA 01,CD, DE, BB, 21,51,01,11,2EB 
DATA 41,00, CD,C9,BB, 11,01,01, 2A5 
DATA 21,00,00,CD,F6, BB, 11, 01,281 
DATA 01,21,FD,FE, CD, F6, BB, 11, 4AC 
DATA FE,FF, 21,FD,FE, CD,F6, BB, 697 
DATA 11,FE,FF,21,00,00,CD,F, 3F2 
DATA BB,21,58,01,11,37,00,CD, 24D 
DATA C9,BB, 11,15,01,21,00,00, 1CC 
DATA CD,F6,8B,11,15,01,21,E9, 3AF 
DATA FE,CD,F6,BB, 11,FE,FF, 21, 5AB 
DATA E9,FE, CD,Fb, BB, 11,FE,FF,673 
DATA 21,00, 00,CD,F6, BB, CD, AB, 414 
DATA 4A,CD,E3, 47, CD, 5E, 49, CD, 482 
DATA 26,49, CD,03,BB,CD, 19,BC, 39C 


12 


VU 


DATA CD, 1B,BB, 30,F5,F5,CD, 69, 4F3 
DATA 45,F1,FE, 61,CC, 5D,47,FE, 503 
DATA 64,00, A5, 46,FE, 73, CC, 0D, 465 
DATA 46,FE, 63,CC, C7, 46,FE, 7A,4FB 
DATA CC,91,45,FE, 78, CC, BB, 45, 4E4 
DATA FE, 66, CC, 37,46,FE, 76, CC, 4ED 
DATA 59,46,C3,F1,4B,21,B4,03, 378 
DATA 34,3E,09, BE, 38, 18,21, 0C, 1Bb 
DATA 1C,CD, 75, BB, 21,89,03, 7E, 374 
DATA Cé, 30,5, CD, SD, BB, Et, 2B, 4CC 
DATA 3E,85, BD, 20,F2, C9, 7E,D6, 4DF 
DATA 0A, 77,23, 18,DB, 3A, BB, 13, 29C 
DATA 47,05, 2A,A2, 13, FD, 21,8, 3C1 
DATA 0B,CD, 87,47,ED,5B,A4, 13, 3A5 
DATA 2A,A2, 13,CD,E5, 45, 2, 88, 388 
DATA 13,FD,21,88,0B, CD, CC, 47, 3D4 
DATA C1,10,DE, CD, 16, 4D,C9, 3A, SE2 
DATA BB, 13,47,C5,2A,9C, 13, FD, 3AD 
DATA 21,88, 0B,CD,87,47,ED,5B, 3C7 
DATA A6,13,24,9C, 13,CD,E5, 45, 389 
DATA 24,98, 13,FD, 21,B8,0B, CD, 383 
DATA CC, 47, C1, 10,DE, CD, 48, 4D, 424 
DATA C9,06,0F,C5,E5,D5,06, 08, 36B 
DATA C5,06, 10, 1,77,13,23, 10, 1B2 
DATA FA,ED,4B, AE, 13,09,ER, 09, 3F0 
DATA EB, C1, 10,EC,D1,E1,01,B0, 50B 
DATA FF,09,EB,09,ER, C1, 10, DB, 493 
DATA C9,3A,B8, 13,47, C5, 2,98, 39C 
DATA 13,FD, 21,88, 0B,CD, 87, 47, 38F 
DATA ED, 58,98, 13, 2A, 9A, 13, CD, 397 
DATA 9E,47,FD, 21, BB, 0B, 28, 90, 38C 
DATA 13,CD,CC, 47,01, 10,DE, CD, 46F 
DATA F1,4C, C9, 2A, 8A, 13, FD, 21,3EB 
DATA B8,08, CD,E9, 46, ED, 58, BC, 493 
DATA 13,2A,8E, 13, CD, 78, 46, 2A, 296 
DATA 88,13, FD, 21,BB, 0B, CD, 38, 381 
DATA 47,CD, 38, 4€, C9, 2A, 90, 13, 330 
DATA FD,21,B8,0B, CD,E9, 46, ED, 4CA 
DATA 58,92, 13, 28,94, 13,CD, 7B, 319 
DATA 46, 28,96, 13,FD, 21,B8, 0B, 2FA 
DATA CD, 38, 47,CD, 78, 4E, C9, 06, SAE 
DATA 08,05, D5,E5, 06, 08, C5, 3A, 394 
DATA Bé,13,47,1,77,28, 1B, 10, 1F7 
DATA FA,ED, 48, B0, 13,09,EB, 09, 3F2 
DATA EB,C1,10,EA,E1,D1,01,50, 4A9 
DATA 00,09,EB,09,EB, C1, 10,09, 392 
DATA C9, 24,88, 13,FD, 21,88, 0B, 36F 
DATA CD,E9, 46, 2,88, 13,ED, 5B, 409 
DATA AA,13,CD,0E,47,2A, BA, 13, 2A6 
DATA FD,21,B8,0B, CD, 38,47, CD, 3FA 
DATA 7A,4D, C9, 2,96, 13,FD, 21,381 
DATA B8,0B,CD,E9, 46, 2A, 96, 13,392 
DATA ED, 58, AC, 13, CD, 0€, 47, 24,353 
DATA 90,13, FD, 21, BB, 0B, CD, 38, 389 
DATA 47,CD, BA, 4D,C9,06, 08,E5, 3D7 
DATA C5,06, 08, C5, 34,87, 13,47,2E3 
DATA 7E,FD,77,00,FD, 23,23, 10,345 





1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 

220 
1230 
{240 
1250 
1260 
1270 
1280 
1290 
1300 


{31 
di 


1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 


DATA F7,ED,5E, B2, 13, 19,01, 10,3EE 


1710 


DATA EA,C1,E1,11,50,00,19,10,316 | 1720 


DATA DE, C9, 06, 08, C5, E5,D5, 06, 43A 
DATA 08,C5, 34, Bb, 13,47, 1A, 77,248 
DATA 13,23, 10,FA,ED, 48,4, 13,33F 
DATA 09,EB,09,EB, C1, 10,EA, D1, 474 
DATA E1,01,50,00,09,EB,09,EB, 31A 
DATA C1,10,09,C9,06, 08,E5,C5,42E 
DATA 06,08, C5, 3A,E7,13,47,FD, 218 
DATA 7E,00,77,FD, 23,23, 10,F7,33F 
DATA ED,5E, B?, 13, 19,01, 10,EA, 3E1 
DATA C1,E1,11,50,00, 19, 10,DE, 304 
DATA C9,3A,B8, 13,47, C5, 2A, 88, 38C 
DATA. 13,FD, 21,B8, 0B, CD, 87,47, 38F 
DATA ED, 58,88, 13, 2A,9E, 13, CD, 38B 
DATA 9E,47,FD, 21,8, 0B, 24, AB, 298 
DATA 13,CD,CC, 47,01, 10,DE, CD, 46F 
DATA CC,40,09,06,98,05,06, 10, 2Cà 
DATA 7E,FD, 77,00, 23,FD, 28, 10,345 
DATA F7,ED,4B,AE, 13,09, C1, 10, 3CA 
DATA EC, C9, 06,0F,C5,D5,E5, 06, 44F 
DATA 08,05, 06, 10,7E, 12,13, 23, 1A9 
DATA 10,FA,ED,4B, AE, 13,09,E5,3Fi 
DATA EB,09,E5,D1,E1,C1,10,E9,545 
DATA Et,D1,01,50,00,09,E5,EE, DC 
DATA 09,65, D1,E1,C1,10,D5,C9, SF 
DATA 0b,08,C5, 06, 10, FD, 7E, 00, 264 
DATA 77,23,FD, 23, 10,F7,ED, 48, 3F9 
DATA AE, 13,09, C1, 10,EC,C9, 21,371 
DATA 48,C1, 06, 08,5, C5. 06, 08, 2CF 
DATA E5,05,06, 10, 3E,FF, 77,23, 397 
DATA 10,FA, 06, 10, 3E, F0, 77,23, 2E8 
DATA 10,FA,C1,E1, 11, 00,08, 19, 2DE 
DATA 10,E6,01,E1,11,50,00, 19,312 
DATA 10,DA, 21,C8, C3, 04, 0B,E5, 289 
DATA C5,06, 08,E5, C5, 06, 10,2, 201 
DATA 0F,77,23,10,FA,C1,E1, 11,366 
DATA 00,08, 19, 10,EE,C1,E1, 11,202 
DATA 50,00, 19, 10,2, 21,08, 17,190 
DATA CD, 75,BB, 3€, 4E,CD, SD, BR, 44€ 
DATA 3E,6F, CD, 5D, BB, E, 6D, CD, 404 
DATA SD, BB, 3€, 62, CD, SD, EB, 3€, 3DB 
DATA 72,CD, 5D,BB, 3E,65, CD, 5D, 424 
DATA BB, 3€, 20, CD, 5D, BB, 3E, 64, ZAO 
DATA CD, D, BE, 3€, 65, CD, 5D, BE, 46D 
DATA 3E, 20, CD, 5D, BB, 3E, 63, CD, 31 
DATA SD, BB, 3E,6F, CD, SD, BE, 3E, 3EB 
DATA 75,CD, 5D, BB, 3E, 70, CD, SD, 432 
DATA BB,3E, 20, CD, SD, BB, 3E, SA, 376 
DATA CD, 5D, BE, 21,05, 03, CD, 75, 350 
DATA BB,3E, FO, CD, 5D,BB, 21, 06, 3F5 
DATA 03,CD,75,BB, 3€, 61, CD, 5D, 3C9 
DATA BB,21,03,05, CD, 75,BE, SE, 31F 
DATA F2,CD,5D, BB, 3€, 64, CD, 5D, 4A3 
DATA BB, 21, 13,03, CD, 75, BE, 3E, 32D 
DATA 7A, CD, 5D, BB, 21, 14,03, CD, 364 








1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
194ù 
1950 
1960 
1970 
1980 
1990 
2600 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 


DATA 75,BB,3E,F1,CD, 50, BB, 21,465 dr 2270 





DATA 03,13, CD, 75, BB, 3E. 66, CD, 384 
DATA SD, BB, 3€, F3, CD, 5D, BB, 21,44F 
DATA 05,16,CD,75,BB, 3E,F0, CD, 413 
DATA SD, BB, 21,06, 16, CD, 75, BB, 352 
DATA 3E,73,CD,5D, BB, 21,13, 16, 2E0 
DATA CD,75, BB, 3€, 78, CD, 5D, BE, 498 
DATA 21,14,16,0D,75,BB,3E,F1, 377 
DATA CD, SD, BE, 21, 16,05, CD, 75,363 
DATA BB,2E, F2, CD, 50, BB, 3E, 63, 471 
DATA CD, SD, BE, 21, 16,13,CD,75, 371 
DATA BB, 2€, 76, CD, SD, BB, 3E,F3,485 
DATA CD, D, BB, C9, 06, 00, CD, 39, BA 
DATA BE,C9,3A,E1,05,47,21,E8, 3F4 
DATA 03,05,E5,7E,FE, 00, CC, 71,486 
DATA 45,FE,01,CC, A5,46,FE,02,3FE 
DATA CC, 5D,47,FE, 03, CC, 37, 46, 3EA 
DATA FE, 04, CC, BB, 45,FE, 05, CC, 49D 
DATA C7,46,FE, 06, CC, 0D, 46,FE, 42€ 
DATA 07,00,99,46,E1,01,23, 10,347 
DATA DO,C9, 3A,DC,05,FE, 01, 28, 3DE 
DATA OA,FE, 02, 28,5F,FE, 03, CA, 35C 
DATA 21,4A,C9,21,03, 19,CD, 75, 283 
DATA BB,CD,84, 4A, 3€, 31,CD, SD, 3EF 
DATA BE, 3E,32,32,E1,05,06, 31, 27A 
DATA 21,88, 13,00, 21, 95,45, DD, 375 
DATA 7E,00,77,23,DD,23,10,F7,31F 
DATA C9,48,C1,60,C1,5F,C1, 67, 47A 
DATA C1,E0,C3,DF,C3,E7,C3,CB,678 
DATA C3,58,C1,A8,C1,08,C6, 98, AB 
DATA C1,98,C6,FB, CS, AB,C5, BB, 60! 
DATA C5,F8,C5,50,C1,D0,C3,F0, 616 
DATA 07, 18,08,F8, 07,E8, 07, 18, 22D 
DATA 08, 04,FF, C9, 21,03, 19,CD, 2DE 
DATA 75,BB, CD, 84, 4A, 3E, 32, CD, 408 
DATA SD, BB, 3E, 64,32,E1,05, 06, 2D8 
DATA 31,21,88, 13, DD, 21,EE, 49, 322 
DATA DD, 7E, 00, 77,23, DD, 23, 10,305 
DATA F7,09,48,C1,64,C1,63, 01,512 
DATA 67,C1,E4,C3,E2,C3,E7, C3, 61F 
DATA CB,C3,58, C1, AB, C1,08, C6, 4DE 
DATA 98,C1,98,Cb,F8, C5, AB, CS, SE1 
DATA BB,C5,FB, C5, 40, C1,CC, C3, 5D6 
DATA F0,07, 1C,0B,FC, 07,E4,07, 309 
DATA 1C,04,02,FF,C9, 21,03, 19, 227 
DATA CD, 75,BB, CD, 84, 4A, 3E, 33, 409 
DATA CD, SD, BB, 3E,FF, 32,E1,05,434 
DATA 06,31,21,88, 13, DD, 21,47, 238 
DATA 44, DD, 7E, 00, 77, 23, DD, 23, 33F 
DATA 10,F7,C9,48,C1,66,C1,85, 485 
DATA C1,67,C1,Eb,C3,E5,C3,E7, 621 
DATA C3,C8,C3, 58, C1, A8, C1,08, 408 
DATA Cé,98,C1,98,C6,F8, CS, AB, SE2 
DATA CS,B8,C5,F8, CS, 44, C1, CA, 504 
DATA C3,F0,07, 1E,08,FE, 07, E2, 3C7 
DATA 07,1E,02,01,FF,C9, 11,FF, 300 
DATA FF,3E, 00, 1B, BA, 20,FC, C9, 3F7 
DATA ZE, 4€, CD, 50, BB, 3€, 49, CD, 3C5 
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2280 
2290 
2300 
2310 
232 

2350 
2540 


DATA SD, BB, 3€, 56, CD, SD, BB, 3€, 2CF 
DATA 45,CD,50, BB, 3€, 41, CD, 5D, 303 
DATA BB, 2E,55, CD, SD, BE, 3E, 20,291 
DATA CD, SD, BE, C9, 21,70, C1. 06, 406 
DATA 0B,3E,FF, 77,23, 77,23, 3E, 287 
DATA F0,77,22,77,28, 28,28, 11,293 
DATA 00,08, 19, 10,EC, 06, 08,21, 14C 
2350 DATA CO,C1,3E,0F, 77,23, 77,28, 30A 
2260 DATA 11,00,08, 19, 10,F4,C9,2E, 23D 
2370 DATA 00, CD, 0€, EC, 21,05, 06, CD, 270 
2380 DATA 75,88, 3€, 50, CD,SD,BE, 3€, 3E1 
2390 DATA 55, CD, 50, BB, 3E, 5A, CD, 50, 3FC 
2400 DATA BB, 3E, SA, CD, SD, BE, 3E, 4C, 3C2 
2410 DATA CD, 50, BB, 3€, 45, CD, 5D, BB, 44D 
2420 DATA 21,0D,04,CD,75,BE, 3€, 43, 2E0 
2430 DATA CD, 5D, BB, 3€, 72, CD, 5D, BR, 47A 
2440 DATA 2E,65,CD, D, BB, 3, 65, CD, 3F6 
2450 DATA SD, BB, 3€, 20, CD, SD, BB, 3E, 399 
2440 DATA 70,CD, SD, BE, 3€, 61 ,CD, 5D,41E 
2470 DATA BB, 3€, 72, CD, 5D, BB, 3€, 20,30€ 
2480 DATA CD, SD, BE, 3E, 34, CD, 50, BB, 442 
2490 DATA 21,12,07,CD,75,BB, 2€, 59, 2CE 
2500 DATA CD,5D, BB, 3€, 20, CD. SD, BB, 428 
2510 DATA 3E,4C, CD, 50, BB, 2,85, CD, 3DF 
2520 DATA SD,BE, 3€, 20,CD, SD, BE, SE, 269 
2530 DATA 47,CD,5D, BB, 3€, 4F,CD, SD, 3E3 
2540 DATA BE,3E,46, CD, SD, BE, ZE, 46, 348 
2550 DATA CD. SD, BB, CD, 7A, 4A, CD, 7A, 4ED 
2560 DATA 44, CD, 74,44, 09,23€, 01, CD, 3B0 
2570 DATA 0E, BC, 21,04, 0A,CD, 75, BB, 2FC 
2580 DATA 3E, 4€, CD, SD, BE, 3E,65, CD, 3E5 
2590 DATA 5D,BB, 3€, 76, CD, 50, BB, 3€, 3EF 
2600 DATA 65,CD, SD,BE, 2€,61,CD, 50,413 
2610 DATA BB, 2€, 75,CD,5D, BB, 3E, 20, SE 
2620 DATA CD, 5, BB, 3€, 28, CD, SD, BB, 430 
2630 DATA 3E,31,CD,5D, BB, ZE, 2C, CD, 38B 
2640 DATA 50,BE, 3E, 22, CD, 50, BB, 3€, 2AB 
2650 DATA 2C,CD, SD, BE, 3€, 32, CD, 50, ZAC 
2660 DATA BB,3E, 29,CD, SD, BB, 3E, 3F, 384 
2670 DATA CD,50, BB, 3€, 20, CD, 5D,FB,428 
2680 DATA CD, 1B,BB,30,FB,FE, 31, 28, 425 
2690 DATA OA,FE, 32,28, 0C,FE, 33, 28, 207 
2700 DATA 0E, 18, ED, 3E, 01, 32, DC, 05, 265 
2710 DATA C9,3E, 02,32, DC, 05,09, 2€, 323 
2720 DATA 03,32, 00,05, C9, 21, 16,4F, 265 
2730 DATA 11,2E, 50, 1A,BE, C2, 2€, 45, 29C 
2740 DATA 7D,01,55,4F,89, 28, 04,23, 22A 
2750 DATA 13,18,F0,21,5b,4F, 11,6E, 260 
2760 DATA 50,1, BE, C2, 2€, 45, 7D, 01, 2DB 
2770 DATA 95,4F,B9,28,04,23, 13, 18,217 
2780 DATA FO,21,A6,4F,11,A€, 50, 1A,32F 
2790 DATA BE, C2,2E,45,7D,01,E5,4F, 345 
2800 DATA B9,28, 04,23, 13, 18,F0, 21, 244 
2810 DATA Eb,4F,11,EE, 50, 1A,BE,C2,41E 
2820 DATA 26,45, 7D,01,25,50,E9, 28, 247 
2830 DATA 04,23,13,18,F0,CD, 14, EC, 2DF 
2840 DATA 21,08,05,CD, 75, BB, 06, 16, 247 





2850 DATA 11,9C,4C,D5,C5, 1A,CD,5D,307 A 3410 DATA 12,01,08, 00, 09,EB,09,EE. 203 


2860 DATA BB,C1,D1,13,10,F5, 21,09, 38F 
2870 DATA 05,CD,75,BE, 06, 11,11,82, 2DC 
2880 DATA 4C,D5, C5, 1A,CD, SD, BE, C1, 446 
2890 DATA D1,13,10,F5,3€,20,CD, 5D, 371 
2900 DATA BB, 06,08, 11,C3,4C,D5, C5, 283 
2910 DATA 1A,CD, 5D,BB,C1,D1,13, 10,384 
2920 DATA F5, CD, 7A,4A, CD, 7A, 4A, CD, 4E4 
2930 DATA 7A,4A,CD, 14,BC,C3, 84, 44, 3EC 
2940 DATA 68,85, 20, 70,85, 75, 78, 20, 2D1 
2950 DATA 76,6F,75,73,20,66,85, 60, 324 
2960 DATA 69,63,69,74,65, 72, 64,27, 30B 
2970 DATA &1,76,6F, 69,72, 20,74, 72,327 
2980 DATA 6F,75,76,65, 20,60, 61,73, 21F 
2990 DATA 6F,80,75,74,49,6F,6E, C9, 303 
3000 DATA 3A,BB, 13,47,05,11, 16, 4F, 287 
3010 DATA 06,08,21,96,4F, 18,77, 13, 1B8 
3020 DATA 23,10,FA,11,1E,4F,21, 16, 1E2 
3030 DATA 4F,06,80, 14,77,13,23, 10, 1AC 
3040 DATA FA,C1, 10,E0,C9, 3A, BB, 13,479 
3050 DATA 47,05, 11,6, 4F,06, 08, 21,241 
3060 DATA 26,50, 14,77, 13,23, 10,FA, 247 
3070 DATA 11,AE,4F,21,Ab,4F,06, 80, ? 

3080 DATA 14,77,13,23,10,FA,C1, 10, 242 
3090 DATA E0,C9, SA, BB, 13,47,C5, 11, 3CE 
3100 DATA BE,4F, 06,08, 21,0€,4F, 14, 183 
3110 DATA 77,13,23,10,FA,11,86,4F, 290 
3120 DATA 21,8E,4F,06, 10,C5,06, 08, 1E7 
3130 DATA 1A,77,13,23,10,FA, 01 ,FO, 202 
3140 DATA FF,09,EE, 09,EB,C1, 10,ED, 4A5 
3150 DATA C1,10,D3,C9, 3A,BB, 13,47, 389 
3160 DATA C5,11,1E,50,06,08,21,9€, 211 


3170 DATA 4F,1A,77,13,23,10,FA, 11,231 
3180 DATA 16,50, 21, 1E,50,06, 10,05, 10 
3190 DATA 06,08, 1A,77, 13,23, 10,FA, 1DF 
3200 DATA 01,F0,FF,09,EB,09,EB, C1, 499 
3210 DATA 10,ED,C1,10,D3,C9, 3A, BB, 45C 
3220 DATA 13,47,05,21,16,4F,11,D0, 286 
3230 DATA 07,06,08,CD, 06, 4€, 21,16, 16D 
3240 DATA 4F,11,17,4F,06,08, CD, 20, 1C1 
3250 DATA 4€,11,1D,4F,21,A6,4F, 06, 1E7 
3260 DATA 08, CD, 12,4€,21,6,4F, 11,250 
3270 DATA A7,4F,06,08,CD, 20, 4€, 21, 260 
3280 DATA AD,4F, 11,D0, 07,06,08, CD, 2EF 
3290 DATA FA, 4D,C1,10,C5,C9, 3A, BB, 498 
3300 DATA 13,47,05,21,56,4F, 11,0, 2C4 
3310 DATA 07,06,08,CD,04,4€,21,56, 1AD 
3320 DATA 4F,11,57,4F,06, 08, CD, 20, 201 
3330 DATA 4E,11,5D,4F,21,E4,4F,06, 267 
3340 DATA 08,CD, 12,4€,21,E6,4F, 11,29C 
3350 DATA E7,4F,06,08, CD, 20,4, 21, 2A0 
3360 DATA ED,4F, 11,0, 07,06, 08, CD, 2FF 
3370 DATA FA,4D,C1,10,C5,C9,C5, 1,485 
3380 DATA 77,13,01,08,00,09, C1, 10, 16D 
3390 DATA F5,C9, C5, 7E, 12, 13,01,08, 32F 
3400 DATA 00,09,C1, 10,F5,C9, C5, 7E, 3DB 











3420 DATA C1,10,F3,C9,C5,D5,E5, 06, 512 
3430 DATA 08, 1A,77,23,13,10,FA,E1, 2BA 
3440 DATA D1,01,08,00,09,EB, 09, EB, 2C2 
3450 DATA C1,10,E9,C9,3A,B8,13,47,3CF 
3460 DATA C5, 21,AD,4F, 11,00, 07, 06, 2D0 
3470 DATA 08,CD, 06,4€, 11,AD,4F, 21,257 
3480 DATA AC, 4F, 06,08, CD, BB, 4E, 11, 2ED 
3490 DATA 1D,4F, 21,46, 4F, 06,08, CD, 25D 
3500 DATA DO, 4€, 11,1D,4F,21,1C,4F, 227 
3510 DATA 06,08, CD, BB, 4E, 11,0, 07, 2C9 
3520 DATA 21,16,4F,06, 08, CD, FA, 4D, 2A8 
3530 DATA C1,10,C5,C9, 3A.BB, 13,47, 30B 
3540 DATA C5,21,ED,4F,11,D0,07,06, 310 
3550 DATA 08,CD, 06, 4€, 11,ED, 4F, 21, 297 
3560 DATA EC, 4F,06,08, CD, BB, 4€, 11, 32D 
3570 DATA SD,4F, 21,66, 4F,06,08, CD, 2DD 
3580 DATA DO, 4E, 11,5D,4F,21,9C,4F, 247 
3590 DATA 06,08, CD, BB, 4€, 11,D0, 07,209 
3600 DATA 21,56,4F, 06,08, CD, FA, 4D, 2E8 
3610 DATA C1,10,05,C9,C5,E5,D5, 06, dE4 
3620 DATA 07,7E, 12,28, 1B, 10, FA, D1, 288 
3630 DATA E1,01,08,00,09,ER,09,EB, 202 
3640 DATA C1,10,E9,07,C5, 1A,77,01, 3DA 
3650 DATA 08,00,09,E8,09,ER, C1, 10, 2C1 
3660 DATA F3,09,06,40,21,16,4F,3E, 2Cé 
3670 DATA 11,CD,03,4F, 06,40, 21,56, 1ED 
3680 DATA 4F,2E, 00, CD, 03,4F, 21, 46, 273 
3690 DATA 4F,3E, 22,06, 40,CD,0%,4F, 214 
3700 DATA 21,E6,4F,3E, 33,06, 40, 77, 284 
3710 DATA 23,10,FC,C9, 01,05, 00, 00, 1FE 
3720 DATA 00,00, 44,44,44,44,44,44, 198 
3730 DATA 44,44,11,11,11,11,11,11,EE 
3740 DATA 11,11,11,11,11,11,11,11,88 

3750 DATA 11,11,11,11,11,11,11,11,88 

3760 DATA 11,11,11,11,11,11,11,11,88 

3770 DATA 11,11,11,11,11,11,11,11,88 

3780 DATA 11,11,11,11,11,11,11,11,88 

3790 DATA 11,11,11,11,11,11,11,11,88 

3800 DATA 11,11,11,11,11,11,11,11,88 

3810 DATA 11,11,00,00, 00,00, 00, 00, 22 

3820 DATA OÙ, 00,00, 00, 00, 00, 00, 00, 0 

3830 DATA 90,00, 00,00, 00,00, 00, 00, 0 

3840 DATA 00,00, 00,00, 00, 00, OÙ, 00, 0 

3850 DATA 00, 00,00, 00, 00,00, 00,00,8 

3860 DATA 00,00, 00,00, 00,00, 00, 00, 0 

3870 DATA 00,00, 00,00, 00, 00, 00, 60, 0 

3880 DATA 00,00, 00,00, 00, 00, 00, 00, 0 

3890 DATA 00,00,44,44,44,44,44,44, 198 
3900 DATA 44,44,44,44,44,44,44,44,220 
3910 DATA 44,44,22,22,22,27,22,22,154 
3920 DATA 22, 22, 22,22, 22,22,22,22,110 
3930 DATA 22,22,22,22,22,22,72, 29, 110 
3940 DATA 22,22, 22,22, 22,27, 22,22,110 
3950 DATA 22, 22, 22, 22, 22,22, 22,27, 110 
3960 DATA 22,22, 22,22, 22,22, 22,22, 110 
3970 DATA 22,22, 22,22,22,22,22,22, 110 
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3980 DATA 22,22,22,22,22,22,22,22,110 
3990 DATA 22,22,33,33, a 
4000 DATA 33,33,33,33,33,33,33,33, 198 
4010 DATA 33,33,33,33,33,33,13,33,198 
4020 DATA 33,93,33,53,13,23,23,33,198 
4030 DATA 33,33,33,33,33,33,33,233,198 
4040 DATA oe 33,33,33,33,33,198 
4050 DATA 33,33,33,33,33,33,23,33, 198 
406û DATA 33,33,33,33,33,32,33,33, 198 
4070 DATA 33,33,44,44,44,44,44,44 jFE 
AGE DATA 44,44,11,11,11,11,11,11,EE 
4690 DATA 11,11,11,11,11,11,11,11,88 
4100 DATA 11,11,11,11,11,11,11,11,88 
4110 DATA 11,11,11,11,11,11,11,11,88 
4120 DATA 11,11,11,11,11,11,11,11,88 
4120 DATA 11,11,11,11,11,11,11,11,88 
4140 DATA 11,11,11,11,11,11,11,11,80 
4150 DATA 11,11,11,11,11,11,11,11,89 
4160 DATA 11,11,00, 06,00, 06,00, 00,27 
4176 DATA 00,00, 00,00, 90, 90, 00, 00, 0 
4180 DATA Où, 00, 00, 09, 05,00, 00, 00, 0 
4190 DATA 00,00, 00, 00,00, 00,00, 00, à 
4200 DATA 06,00, 00, 00,05, 00, 60, 00, 0 
4210 DATA 60,00, 00,00, 00, 00, 00,06, 0 
4220 DATA 96,00, 00,00, 00, 06, 00, 00, à 
4230 DATA 00,00, 00,00, 00, 00,06, 00, 0 
4240 DATA G0 100,22, 27,22, 22,22,22,C0 
4250 DATA 22,22,22,22,22,22,22,2?,{10 
426û DATA 22,22,22,22,27,22,29,22,110 
4270 DATA 22,22,22,22,22,22,29,22,110 
4280 DATA 22,22,22,22,22,22,22,22,110 
4290 DATA 22,22,22,27,22,29,29,22,110 
4500 DATA 22,22,22,22,29,27,72,27,110 
… DATA 22,22,22,22,22,22,29,22, 110 
320 DATA 22,22,33,33,33,22,33,33, 176 
330 DATA 33,33,33,33,33,33,33,33, 198 
Fe DATA 33,33,53,33,33,33,33,53, 100 
4360 DATA 33,33,33,33,33,53,33,33, 198 
4370 DATA 33,33,33,33,33,53 ee 
4380 DATA 33,33,33,33,33,33,33,33,19 
4590 DATA 33,33,33,33,3 ua 
4400 DATA 33,33,00,00, 00,00, 00,00, 66e 








+ PURE 2 
10 MEMORY 17500-1 
20 LOAD'"puzzlei" 
30 BORDER 10: IN G,10:INK 1,0 
40 FOR i=0 TO 255 
50 a=RND(1) +#8,2345676 
99 b=INT (a) 
56 IF b;7 THEN b=7 
37 IF b<0 THEN b=0 
60 POKE 1000+i,b 
70 NEXT 
BG CALL 17500e 


Thier r y M A T H 1 A 


D: ce jeu, vous êtes une 


araignée et vous avez un 
gros dt : celui d’haïr les 
mille-pattes. Pour pouvoir 
assouvir votre haine, la 
nature vous a fait un don : 
vous pouvez tirer 
sur vos 

proiese 


CII TON 
X CPC 464 

CPC 664 
x CPC 6128 










Vous êtes en bas de l’écran et le 
mille-pattes parcourt son territoire en 
partant du haut. Chaque fois que 
vous l’atteignez, il se sépare en deux 
parties et le morceau touché se 
transforme en champignon (!). Mais 
attention : celui-ci peut être vénéneux. 
Dans ce cas, un simple contact d’un 
mille-patte et celui-ci dégringole. 
Gare à vous si vous êtes sur le 
chemin ! Si par contre vous parvenez 
à le toucher deux fois, vous aurez 
droit à un bonus de 1000 points. A 
chaque fin de tableau, vous marquez 
10 points par champignon inoffensif 
restant à l'écran. 

Vous disposez initialement de 4 vies 
mais vous avez la possibilité d’en 


E 


S 


gagner une nouvelle. Pour cela, un 
mille-patte constitué d’un seul 
morceau parcourt le haut de l’écran. 
Si vous arrivez à le toucher avant 
qu'il ne disparaisse, c'est gagné ; 
sinon. 

Vous pouvez jouer en utilisant soit le 
joystick, soit le clavier redéfini à votre 
guise. Vous avez le choix entre 10 
niveaux de rapidité (de O à 9, en 
vitesse décroissante) que vous 
sélectionnez en appuyant sur la 
touche correspondante. À chaque fin 
de tableau, le rythme s'accélère. 
Pour créer le fichier binaire, tapez le 
programme ‘’CENTI.DAT'! et 
exécutez le. Faites ensuite de même 
avec le programme ‘’CENT2.DAT'’. 
Vous obtiendrez ainsi deux fichiers 
binaires. Tapez ensuite : 

MEMORY &75FF 

LOAD ‘’CENTI.BIN’’ 

LOAD ‘'CENT2.BIN’ 

SAVE ‘’CENTIPED.BIN'’,B,&7600, 
&214F 

Il ne vous reste alors qu'à taper et 
sauvegarder le programme 
'LANCEUR"'' que vous mettrez, si 
vous possédez un lecteur de cassette, 
juste avant le programme 
‘’CENTIPED.BIN'". Pour commencer 
le jeu tapez RUN ‘’LANCEUR"’. 


RUE xL-4,h4:DRAMR BO:NEXT h% 


En 

. 
10 MODE 1:BORDER CG: INK O,0:INE 1,0: TH 
IN 2,26: INE 3,1 
20 LOCATE 25,3:FEN Z:PRIAT "T.MATHI :GC 
5 # 
30 LOCATE 2E,S:FEN S:FRINT "et" #2K 
49 LOCATE 24,7:FEN Z:PRINT "CPC" ll 
90 LOCATE Z6,9:FEN SPRINT "present >M2 
ent" 
60 LOCATE 1,25:PEN 1:PRINT "CENTIPE 3HK 
DE [I] : 
70 FOR yi4=2 TO 14 STEF 2:x4=32:c=1 DJ 


2.57:F0R x14=0 TO 142 STEP 2 


80 x4=x4+8 } 
90 c=c-0. 1408 TRÈS > 
100 va=150+ck(y14-8) ; 
110 IF TEST (x1%,y14)=0 THEN 6070 1 DCE 
40 

120 czc 

130 FOR hl=y-c TO vatck 


2V 


STEP 2:M0 :GF 





14 NEXT x1%,y14 GE 
150 LOCATE 1,25:FRINT " "; +10 
160 INE 1,20 UE 


170 LOCATE 35,25:PEN S:FRINT CHR$(& FD 
A4);" 1988": 
186 MEMORY &75FF:LOAD'"'centiped.bin KP 


170 CALL &7800 :JD 


PRESS 
D - 
10 a=&7600:f=32815:MEMORY a-1:1=100 

20 WHILE af 

30 FOR a=a TO a+{5:READ c$:k=VAL ("&"+c 
$):s=0+k+05536*(a+k)32767):POKE a,k:NEX 
T 


40 READ d$:t=VAL("&"+d8):IF s€t THEN 
PRINT CHR$(7); "Erreur ligne ";1:END ELS 
E 1=1+5 
50 WEND 
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U 


PR bù SAVE “cent1.bin",b, 87600, &A2F 
70 END 
100 DATA ED, 73,38, 79, CD, 25,77, CD, DO,82, 
CD,D1,83,CD,19,76,0916 
105 DATA CD,57,77,CD,87,77,C3,F0, 77.2, 
00,CD,0E, BC, 21,05, 1041 
110 DATA 05,CD,3E, BC, 21, 77,87, CD, 63, 87, 
3E,05, 06, 18,0€, 00, 1582 
115 DATA CD,32,BC,01,00,00,CD, 38, BC, ZE, 
00, CD, 96, BB, 06,04, 1895 
120 DATA 21,8B,C1,C5,ES, 22,D7,78,CD,3E, 
79,E1,11,F0,00, 19, 2399 
125 DATA C1,10,F0,2E,08,CD,E4,BB, 11,28, 
00, 21,40, 02, CD, CF, 2A50 
130 DATA EB,11,68,00,21,4E,01,CD,D7, BE, 
CD. DB, BE, 11,00, 00, 30E2 
135 DATA 21,7C,02,CD,CF,BE, 11,58, 00,21, 
bb, 00, CD, D2, BE, CD, 37EF 
140 DATA DE,BB,21,F0,C5.CD, 03,77,21,3F, 
Ch, CD, 03,77, 21,54, 3F84 
145 DATA C0,22,D7,78,21,54,E0,3E,FF, 06, 
04,C5,E5,06, 47,77, 46BF 
150 DATA 23,10,FC,E1,CD, 70,79,C1,10,F1, 
06,84, 77, CD, 70, 79,4EFE 
155 DATA 10,FA,21,EA, C0, 22,07, 78,06, 84. 
77,CD, 70,79, 10,FA,5705 
160 DATA 3E,01,CD,90,BE,21,01,04,CD,75, 
BB, 21, BC, 78, 06, 08, SCE2 
165 DATA CD,19,77,E5,3E.0D, CD, 90,FB,E1, 
06,06, CD, 19,77, 2€, 640F 
170 DATA GC, CD. 90,BB, 06, 09,21,06,01,11, 
CA, 78,C5,E5, DS, CD, 6K09 
175 DATA 75,BB, 1A,CD, 5D,BE,D1,13,E1,2C, 
C1,10,EF,3E,0D, CD, 7301 
180 DATA 90,BB,C9,CD,0E,77,11,B0,FF,19, 
CD, 0€, 77,09, 11,00, 7A6C 
185 DATA 08,06,04, 36, C3, 19, 10,FB, C7, C5, 
ES, 7€, CD, 50, BE, E1, 8252 
190 DATA 23,C1,10,F5,C9, 06,09, 21, 19,80, 
36,00, 23, 10,FE, 2A,875E 
195 DATA 41,85, 11,4C,B3,37,3F,20,08,21, 
41,85, 22,4F,86, 18, 8025 
200 DATA 06,21,88,Bb,22,4F, 86, 5E, 23,56, 
21,15.00,19,36,FE, 90DB 
205 DATA 11,2F,00,19,36,07,09,3E, 21,32, 
D3,76,3E, 19,32,D4,9573 
210 DATA 78,21,02,F7,22,D5, 78, 21,02, C7, 
22,07,78, 21,0E, 80, 987E 
215 DATA 26,00,06,09, 21, 10,80, 36, 00, 23, 
10,FE,3E, 04, 22, 3A,9E86 
22û DATA 79,3E,02,32,D6, 80, C9, 11,E9, C0, 
| 1A,FE, 03,28,09, 11 ,04h7 
225 DATA E9,E0, 1A,FE, 03,02, 80,81, CD,FE, 

7C,DD, 21,24, 7C,DD,AE1C 

30 DATA 36,00,01,DD,36,01,01,21,AS,7C, 
[ose moe 

235 DATA DD, 36,04, 00, DD, 36,05, 01, DD, 36, 





06,00,D0,21.A3,7C, B8B6 


245 DATA DD,73,00, Da RENE 


00, 28, 06, 21, 22,80, BEOC 

245 DATA CD,E1,70,3E,00,32,0D,80,3E, 1D, 
32,43, 7D, 2A,07,78,C459 

250 DATA 22,09,78,2A,D5, 78, CD, 3E, 79,24, 
D5, 78, 22,07, 78,C9,CC79 

255 DATA CD,9F,79,11,E9,C0,CD,54,70,06, 
1F,CS, 06,FF,10,FE,D4ES 

260 DATA C1,10,F8,3E, 00, 32,37, 79,3E,48, 
CD, 1E, BB, C4, 4€, 78,DE52 

265 DATA 3E,49,CD, 1E,BB, C4, 47, 
CD, 1E, BB, C4, 80, 7B,E30C 

270 DATA 3E,4B,CD, 1E, BB, C4, 9, 7 
7D,3E,42, CD, 1E, BE, EE29 

275 DATA C2, 04,76, 3A,37,79,FE, 00,28, Bb, 
24,07,78,22,D9,78,F21D 

280 DATA 24,05, 78, CD, 3R, 79, 24, 09,78, 22, 
07,78, 18, A2, 3A,D4,F9C9 

285 DATA 78,30,FE, 00, CB, 32, D4, 78, 2A,D5, 
78,CD, 83, 79, 22,D5,01F9 

290 DATA 78, 2E,01,32, 37,79, C9, 3, Dd, 78, 
3C,FE, 14, C8, 32, D4,0903 

295 DATA 78, 2A,D5,78,CD, 70, 79,22,D5,78, 
3E,01,32, 37, 79,09, 1001 

300 DATA 3A,D3, 78, 3D,FE, 00, CB, 32,D3, 78, 
24,07,78, 28, 22,D7, 1743 

305 DATA 78, 2A,D5, 78, 28, 22,05, 78, 3E, 01, 
32,37,79,09, 3A,DS, 1E23 

310 DATA 78, 3C,FE. 46,C8, 32,03, 78, 2A,07, 
78, 23, 22,07, 78, 2A, 2597 

315 DATA DS, 78,23, 22,05, 78, 3E,01, 32,37, 
79,09,53,43, 4F,52, 2897 

320 DATA 45,20, 34, 20, 30, 30, 30, 30, 30,30, 
43,45,4E,54, 49,50, 2F39 

325 DATA 45,44,45,74,08,DD,75,07,DD,7E, 
03, DD, 77,09, DD, 7E, 35F2 

330 DATA 04,00,00, 00,00, 09, 00, 00, 00, 00, 
88,00, 00,00, 00, 00, 367E 

335 DATA 20,00,00, 00,50, 20, 20, 70, 00,00, 
00, 10, 30, 00,00, D0, 37DE 

340 DATA SA 
00,00, 50,00, 20, 50, 393€ 

345 DATA 00,00,00, 10, 30,00, 00,00, 00, 20, 
20,20,00,00, 00, 20, 39FE 

350 DATA 20,20,90,00,00, 20,00, 20, 00,00, 
00,A0, 00, A0,00, 00, SBBE 

355 DATA 00,00,00, 00,00, DD, 46,00, DD, 56, 
04,E5, CD, 5F, 79, 06, 40A8 

360 DATA 0E,21,E1,78, 22, 35,79, D1, 28,35, 
79,05,D5,01, 06,00, 4444 

365 DATA ED, 80,22, 35,79,E1,CD, 70,79, C1, 
ES, 10,EA,E1,C9, 11, 4FA9 

370 DATA 00,08, 3€, BF, 37, 3F,ED, 52, EC, 38, 
F9,19,22, D7,78,C9, 5643 

375 DATA D5,11,00,08, 19, 30, 0A, 2, D7, 78, 
11,50, 00, 19, 22, D7, SADO 


78, 4A, 


ED, A4, 











4 { ln cb à 


380 DATA 78,D1,09,F5,D5,11,00,F8,19,E, 
BF, BC, 38, 0€, 2A, 7, &2CE 

385 DATA 78,11,B0,FF,19,22,D7,78,11,00, 
38,19,D1,F1,C9,21,699€ 

390 DATA 24,7C,DD,21,25,7C,46,C5, DD, 7E, 
05,FE, 00, CA, 97, 7A, 7121 

395 DATA 06,04, C5, CD, 17,7B,ES,ER, CD, 2?, 
70,EB, D2, CC, 79,E1, 7A6E 

400 DATA CD,52,7B,FE, 00,C2,8F, 74, C1, C3, 
0C, 7B,ED, 53, 3D, 80, 8209 

405 DATA 1A,FE,00,CA, 83. 7A,FE, OC, 20,49, 
ES,DD,E5,D5, 1,3, 8BC4 

410 DATA 00,32,3F,80,CD,45,7E, DD,E1,El, 
E1,E5,DD, 56,02, DD, 94BE 

415 DATA 5E,01,37,3F,ED, 52,28, 1B, 11,06, 
00, DD, 19,E1,E5, DD, PACS 

420 DATA 56,02,DD,5E,01,37,3F,ED, 52, CA, 
83,74,11,F4,FF,DD, 286 

425 DATA 19,18,70,3A,3F,80,FE, 00, 28,69, 
Ei,D1,01,05,C5,D5,A9F1 

430 DATA E5,18,60,FE, 3C, 20, 09, 2A, 0€, 80, 
28, 22,0€, 80, 18,53, AEAF 

435 DATA FE, FC, 28,4F,FE, 03,28, 4B,FE,0F, 
28,47,FE, 47,20, 1F,B594 

440 DATA 3E,00,32,3F,80,CD, 02, 7F, 3E, 00, 
32,0D, 80, 21, 22,80, B9D1 

445 DATA CD,E1,7C, 3,3F, 80,FE, 00, 28,29, 
Et,C1,C3,00, 78, 21,C150 

450 DATA 24,70, DD, 21,25, 7C, 46, C5, DD, 46, 
00, DD, 66, 02, DD, &E, CB4D 

455 DATA 01,CD,E1,7C,23,23,10,F9, 11,06, 
00, DD, 19, C1, 10,E7,CEBC 

460 DATA C3,25,81,E1,ED, SE, 3D, 80, 73, 23 
72,2B,CD, 12, 7D,C1,D62B 

465 DATA 05,C2,82,79,C3,00, 78, CD, 17,78, 
ES, DD, 7E, 03,FE, 00, DEO7 

470 DATA 28,34, 13, CD, B6, 78, 1B,EB, CD, 22, 
70,EE, CD, 82, 78, 1B,ESE6 

475 DATA CD,B2,78, 13, 13,CD,B6, 7B,EB, CD, 
3D,7D,EB, 1B, 1B,CD,EE44 

480 DATA TE 
78, 1B,CD, B2, 7B,13,F72 

485 DATA 13,CD, Bb, 78, de CD, 82,78, 
13,EB, CD, 22, 7D,EB,FEEB 

490 DATA CD, B6, 78, 13, CD, B6, 78, 1B, 1B,CD, 
82,7B,EB, CD, 3D, 7D, 0799 

495 DATA EB, 13,13, CD, B6,7B,EB, CD, 3D, 7, 
EB, 1B,CD, Bb, 78, 13, 1031 

500 DATA CD, B6, 78, 1B, 1B, CD, B2, 7B,E1,CD, 
52,7B,11,06,00, DD, 17CE 

505 DATA 19,01,05, C2, A7, 79, C9, DD, 66, 02, 
DD, 6€, 01,E5, DD, 46, 1FF1 

510 DATA 00,05,58, 16,00, 19,19,CD,E1,7C, 
78,FE, 00, 28, 0€, 2B, 2497 

515 DATA 25,5€, 25, 56, 25, 79, 28, 72, 28,28, 
28,10,F2,5E, 23,56, 291E 











20,01,04,C5,D5,FD, S1EF 

525 DATA E5,C9,36,00, 23, 36, 00,23, DD,35, 

00, DD, 7E, 00,FE,00, 37BA 

530 DATA 20,06, CD, 71,78, 5E,00, C9, DD, 74, 
02, DD, 75, 01,3E,01, 385 

535 DATA C9,3A,24,7C,FE, 01, CA, D7, 80, DD, 
96,04,FE, 00, 28, 23, 4508 

540 DATA 4F,C5, 06,05, 81, 10,FD,4F,06, 00, 
DD,ES,D1, 21,06, 00, 4AC4 

545 DATA 19,ED,B0,C1,41,11,06,00,DD,E5, 
DD,35,04, DD, 19,10, 5171 

550 DATA F9,DD,E1,21,24,7C,35,11,FA,FF, 
DD, 19,3E, 01, 32,3F, S8CE 

555 DATA 80,C9,06, 00, 18,02, 06, 01, IA,FE, 
C3, 20,0€, 3A, Dé, 80, 5DD7 

560 DATA FE,01,20,5C,E1,E1,E1,E1,C3,A9, 
82,FE, 47, 20,20, 3, bbE3 

565 DATA Dé,80,FE, 01,20, 07,E1,E1,E1,E1, 
C3, 71,82, ER, CD, 7A, 706B 

570 DATA 7F,24,0E,80, 23, 22,0E, 80, 21,00, 

80, 36,00, 18, 31,FE, 7440 

575 DATA 0F,20,1B, DD, 36,05,02, DD, 46, 00, 
DD,66, 02, DD, 6E,01, 79B8 

580 DATA 5€, 23,56, 23, CD, 12, 7D, 10,F7,E1, 
E1,C3, 00, 7B,FE, 03, 8122 

585 DATA CO,E1,E1,73,23,72,2B,CD,FE, 7C, 
DD, 70,03, C3,0C, 7B,B9B8 

590 DATA E1,C3,08, 78,01, 1E,A3, 7C, 00,01, 
00,00,00, 00, 00, 00, BD1E 

595 DATA 00,00,00, 00,00, 00,00, 00, 00, 00, 
00,00, 00,00, 00, 00, BD1E 

600 DATA 00,00, 00, 00,00, 00, 00, 00, 00, 00, 
00,00, 00,00, 00, 00, BD1E 

605 DATA 00, 00,00, 00, 00, 00, 00, 00, 00, 00, : 
00,00, 00, 00,00, 00, BDIE 

610 DATA 00,00, 00, 00,00, 00, 00, 00,00, 00, 
00,00, 00, 00,00, 00, BDIE 

615 DATA 00,00,00, 00,00, 00, 00, 00, 00, 00, 
00,00, 00, 00,00, 00, 8D1E 

20 DATA 00,00,00,00, 00,00, 00, 00, 00, 00, 
00,00, 00, 00,00, 00, BDIE 

625 DATA 00,00, 00, 00,00, 00, 00, 00, 00,00, 
00,00, 00, 00, 00,00, BDIE 

630 DATA 00,00,00, CC, CO, CD, CO, CE, CO, CF, 
CO, DO, CO, D, CO, D2, 9747 

635 DATA CO,D3,C0,D4, C0, DS, CO, Dé, CO, D7, 
C0, DB, CO, D9, C0, DA,A3FB 

640 DATA CO,DB, CO, DC, CO, DD, CO, DE, CO, DF, 
C0,E0, C0, Et, C0,E2, BOEF 

645 DATA CO,E3,C0,E4,C0,E5, C0, E6, CO,E7, 
CO,EB, CO, E9, CO, CD, BEO4 

850 DATA 90,E5,D5,C5,5E, 23,56, EB, 2B, 7E, 
FE,00, 28,02, 3E,03,C4E9 

655 DATA 23,11,00,08,0b,04, 77,19, 10,FC, 
C1,D1,E1,09,E5,D5, CECI 

680 DATA CS,EB, 11,00,08, 06,08, 38,00, 19, 


320 DATA El,C9,FD,E1,D1,C1,05,3E,00,B8 ko, FB,36,06,C1,D1,D0C7 


A 





665 DATA E1,C9,C5,E5,EB, 11,00, 08, 06,04, 
36,FC, 19, 10,FB,E1, DB60 
870 DATA C1,09,D5,E5, 11,00, 20,19, 30,10, 
E1,11,50,E0,19,E5,DF4E 
875 DATA 11,CF,C7,3F,ED,92,3F,E1, 18,01, 
D1,D1,09,F5,D5,E5,EBCb 
680 DATA 11,00,E0,19,3E,BF,BC, 38,07, EL, 
11,80, 1F,19,18,01,EDBB 
885 DATA D1,D1,F1,09,3A, AS, 7D,FE, 00,C8, 
1A,FE, 03, 28, 0€, 11,F599 
890 DATA E9,E0, 1A,FE, 03, 28, 06, 3E, 00, 32, 
A3,7D,C9, CD,FE, 7C,FD4B 
895 DATA EB,DD,21,25,7C, 34,24, 7C, 47,05, 
28,07,11,06,00,DD,021E 
700 DATA 19,10,FC, DD, 56, 02,DD,5E, 01,05, 
FD,E1,DD, 7E, 00, 87, 0A49 
705 DATA 5F,16,00,FD,19,FD,74,01,FD,75, 
00, DD, 34,00, 21, A3, 108D 
710 DATA 7D,35,09,00, 3A, 0D,80,FE, 01,28, 
2A,3E, 40, CD, 1E,BB, 1650 
715 DATA C8,21,40,80,CD, AA, BC, 21, 49,80, 
CD, AA, BC, 2A, D7, 78, 1EC2 
720 DATA 23,23,23,22,22,80,CD,F4,7D, 22, 
22,80, CD, 66, 7F, 21, 24C4 
725 DATA 0D,80,36,01,C9,21,22, 80, CD,E1, 
70, 2A,22, 80,06, 04, 2A14 
730 DATA ED,43,3B,80,CD,F4,7D,ED,4B,3B, 
80, 10,F3, 22, 22, 80, 31F7 
735 DATA CD,66,7F,C9,CD, 3D,7D,7E,FE, 03, 
CB,FE, 00, CB, FE, 3C, 3B40 
740 DATA 20,17,22,22,80,21,22,80,CD,E1, 
70, 2A,0€, 80, 2E, 22, 402D 
745 DATA 0E,80,21,0D,80,36,00,E1,C9,FE, 
0F,28,F5,FE, FC, 20, 478D 
750 DATA 0A,CD, 20, 7F,38,EC, CD, 02, 7F, 18, 
E7,FE, OC, C2, 42, 7€, 4FOD 
755 DATA 34,D6,80,FE,01,20,06,E1,E1,E1, 
C3,71,82,CD,45, 7€, 57AB 
760 DATA 18,D0,C3, 12,7E, CD, 20,7F,D8,CD, 
74,7F,3E,01,B8, 20, SF0E 
765 DATA 0F,CD,87,7F,DD, 35,00, DD, 7E, 00, 
FE, 00, CC, 71,78, C9,68DC 
770 DATA FD,36,00,00,FD, 36,01,00, 2A,0E, 
80,23, 22, 0€, 80, DD, 6BAB 
775 DATA 7E,00,B8, 20, 12,DD,35, 00, DD, 66, 
02, DD, 8E, 01,23, 23, 70FC 
780 DATA DD,74,02,DD,75,01,C9, 3A,24,7C, 
DD, BE, 04, 28, 23, DD, 780C 
785 DATA 96,04,C5,06,05,4F,81,10,FD,4F, 
06,00, C5, 21,24, 7C, 7D2E 
790 DATA 11,06,00,3A,24,7C, 47,19, 10,FD, 
ES, 19,D1,EB, C1, ED, 83F4 
795 DATA B8,C1,DD,7E,00,F5, 90, DD, 77,00, 
05,DD, 70,06, DD, 66, 8C3C 
800 DATA 02,DD,6E,01,F1,87,5F, 16,00, 19, 
3E,00,90,90,5F, 16,9163 
805 DATA FF,19,DD, 74,08, DD, 75, 07, DD, 7E, 





‘ ‘ FN | 


Ever 


810 DATA 04,30, DD, 77,08, DD, 36, 0B, 00,34, 
24,70, DD, 46, 04,90, SE90 

815 DATA 28,0B,47,11,06,00, DD, 19,DD,34, 
OA, 10,F9,21,24,7C,A2FC 

820 DATA 34,C9,DD,35,05, CO, DD, 46, 00, DD, 
bb, 02, DD, 6E,01,CD,AASI 

825 DATA E1,7C,23,23,10,F9,2A,11,80, 11, 
64,00,19,22,11,80,AEF9 

830 DATA 30,04,21,10,80,34,CD,BE, 7F,CD, 
71,78,C9, DD, 21,25, ESC1 

835 DATA 7C,DD,46,FF,C5, DD, 46,00, DD, 56, 
02, DD, 5€, 01,D5, FD, BEBA 

840 DATA E1,E5,FD,56,01,FD,5E,00,37,5F, 
ED, 52,28, 13,E1,FD,CbCD 

845 DATA 23,FD, 23, 10,EC, 1i, 06,00, DD, 19, 
C1,10,D7,E1,E1, 37, CDBA 

850 DATA C9,E1,D1,37,2F,C9, 11,00, 08,06, 
02, 36,47,19,36, BB, D2EC 

855 DATA 19,10,F8,C9,FD, 66,01, FD,6E, 00, 
11,00,08,C5, 06,04, DBBD 
860 DATA 36,30,19,10,FB,C1,C9,FD, 6, 01, 
FD,6E,00, 11,00, 08,DE95 

865 DATA C5,06,04,36,0F, 19, 10,FB,C1,C9, 
34,17,80,3C,FE, OA,E46C 

870 DATA 28,05,32, 17,80, 18,4D,E, 00,32, 
17,80, 3A, 16,80, 3C,E7DA 

875 DATA FE, 0A, 28, 05,32, 16, 80,18, 3B,3E, 
00,32, 16,80, 38, 15,EB7F 

880 DATA 80,3C,FE, 0A, 28,05, 32,15, 80, 18, 
29,3€,00, 32,15, 80,EF7D 

885 DATA 3A, 14,80, 3C,FE, OA, 28, 05,32, 14, 
80, 18,17,3E,00, 32,F321 

890 DATA 14,80, 3A, 13,80, 3C,FE, OA, 28,05, 
32, 13,80, 18,05, 3E,F713 

895 DATA 00,32,13,80,21,01,0C, CD, 75,BE, 
06,06, 21,13,80,C5,FBBB 

900 DATA E5,7E,C6, 30, CD, 5D,BB,E1,23,C1, 
10,F3, C9, 00, 00, 00, 0357 

905 DATA 00,00, 00,00, 00, 00, 00, 00,00, 00, 
00,00, 00, 00, 00, 00, 0357 

910 DATA 00,00, 00, 00,00, 00, 00, G0, 00, 00, 
00,00, 00, 00, 00, 00, 0357 





10 a=32916:#=38735:MEMORY a-1:1=100 

20 WHILE aff 

30 FOR a=a TO a+{5:READ c$:k=VAL ("&"+c 
$):s=s+k+65536#(5+k}32767):POKE a,k:NEX 
T 

40  READ d$:t=VAL("&"+d$): IF ts THEN 
PRINT CHR$(7); "Erreur ligne ":1:END ELS 
E 1=1+5 

30 WEND 


60 SAVE*cent2.bin",b,32816,&171F 
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70 END 

160 DATA 00,00,00,00, 60,006, 00, 09,06, 00, 
00,00, 05,00, 00,06, 0000 

105 DATA 61,00, 00,00,00,9D, 07.07, 00,01, 
00,00, 00,00, 12,07,00%6 

110 DATA 07,00,01,64,01,03,01,64,05.03, 
01,01,01,10,01,00,0133 

115 DATA 01,2C,01,07,01,0F,06,0F,FF,08, 
01,91,00, 14, 00,00, 02A5 

120 DATA 00,04, 00,01,00,00,F4,01,06,0F, 
44,00, 01,00,00,F4,050D 

125 DATA 01,00,0F,4B,00, 01, 00,00,F4, 01, 
00,0F, 19,00, 01,00,0687 

130 DATA 00,49,01,00,0F, 4B, 00,01, 00,00, 
2,01,00,0F,19,00,0877 

135 DATA 01,00,00,C2, 01,00, 0F,4E, 00,01, 
00,00,F4,01,00,0F, OA9A 

140 DATA 19,00,01,00,00,F4,01,00,0F,4E, 
00,01,00,00, 0D, 02, 0C13 

145 DATA 00,0F,19,00,01,00,00,F4,01, 00, 
0F,64,00,01,00,00, DAS 

150 DATA 00,00, 00,00,02, 00, 02, ED, 7E, 38, 
79,24, 0€, 80,3E, 00, 108 

155 DATA EC, 20,03, ED, 28,31,E5,CD, A7, EC, 
3E,01,21,63,80,CD, 1 7D2 

169 DATA BC,BC,E1,E5,ES, CD, 9A,7F,21,6À, 
80,CD,AA,EC,E1,11,220B 

165 DATA 01,00,37,3F,ED,52,20,EC,E1.ED, 
5k,11,80,19,22,11,27D3 

170 DATA 80,20,04,21,10,80,34,3A,FA, 77, 
3D,FE, 00, 28,03, 32, 2CAF 

175 DATA FA,77,C3,13,76,ED,7E, 38,79, JA, 
3A,79,3D, 28, 5D, 32, 3366 

180 DATA 3A,79,F5,CD, 3D,81,F1,CD, 60,81, 
C3,13,76,CD, A7, BC, 3CB4 

185 DATA 3E,01,21,52,80,CD, BC, BC, 3E, 01, 
21,56, 80,CD, BF, BC, 4349 

190 DATA 21,5A,80,CD, AA, BC, 3E,01,CD, AD, 
BC, CB, 7F,20,F7,09,4C76 

195 DATA 47,24,D7,78,22,D9,78,21,8B,C1, 
11,F0,00,19,10,FD, 533D 

200 DATA 22,D7,78,06,0€,C5, 06, 05,E5, 36, 
00,23, 10,FB,E1,CD, 5989 

205 DATA 70,79,C1,10,F0, 2A,D9, 78,22, D7, 
78,C9,CD, EC, 81,ED, 630F 

210 DATA 7B,38,79,3A, 19, 80,21, 10,80, 96, 
38,0F, 20,18, 2A, 1A,6718 

215 DATA 80,ED,5B,11,80,37,3F,ED,52,30, 
08,21,10,80,11,19,6C3C 

220 DATA 80,01,09,00,ED, B0,CD, A7, BC, 0, 
0A,21,73,80,C5,E5, 7361 

225 DATA CD, AA, BC, 30,FE, 21, CD, 80, CD, AA, 


“BC, 30,FB,E1,11,09,7C86 


230 DATA 00,19,C1,10,E9,3€,01,CD, AD, BC, 
Eb,07,FE, 03, 28,F5, 8309 
235 DATA 3E,01,CD, AD, BC, CB, 7F, 20,F7,C3, 
04,76, 3A,D6, 80,FE, BCEO 





240 DATA 00,C8,E1,CD, 30,81, 11,00, 40, CD, 
07,87,01,06,00,21,9188 
245 DATA D3,78, 11,DB, 78,ED,B0,01, 17,00, 
21,0€, 80, 11,24, 80, 9750 
250 DATA ED, B0, 3E,00, CD, 0€, BC, CD, 53, 76, 
3,01,CD, 90,BB, 21, 9ED0 
255 DATA 01,01,CD,75,BB, 21,BC, 82, 06, 14, 
CD, 19,77, 3E,08, CD, A4BB 
260 DATA E4,BB,11,00,00,21,7C,02,CD,CF, 
BB,11,40,01,21,4E,AAÎF 
265 DATA 01,CD,D2, BB, CD, DB, BB, 21,40, C1, 
CD, 66, 82, 21,8F, C1, 8325 
270 DATA CD,66,82,CD,57,77,3€,01, 32,D6, 
80,CD, 87, 77, 3€, 00, BA4S 
275 DATA 32,A3,7D,C3,F0,77,11,00,08, 06, 





1,75, 20, 2€, 2€, 2E, 2002 525 DATA C4,CD,3B, 79,3, 02, DD, 21, 74,86, 


385 DATA 2E,2€,2E,2E,2€,2E,28,2E,26,2, | CD,19,86,3E,02,D0,E3DS 
2E,2€, 2€, 2E, 2€, 20, 3044 530 DATA 21,92,86,CD, 19,86, 3,02, DD, 21, 
390 DATA 00,3E,00,CD, 0€, BC, 21,30,30,CD, | AA,86, CD, 19,86, 3E,EA92 


3E, BC, CD,03,BB,06, 3652 
395 DATA 02,48,CD,38, EC, 21,87,87,CD,63, 
87,3E,09,06,18,0E, 3BB6 
400 DATA (0,CD,32,BC, SE, 0A,06,00,0€, 18, 
CD,32,BC,11,C3,87,40FB 


535 DATA 02,DD,21,C2,86,CD, 19,86, 3€, 0€, 
Hébreu 
E DATA 86,CD,4B,86,3B,FB, 32, 09,78, 3, 
02, DD, 21,74, 86, CD,FB8B 
545 DATA 19,86, 3€, 0€, DD, 21,92, 86, CD, 15, 


405 DATA CD,E2,86,3E,05, CD, 96, BB, 3E,09, 86,CD, 48, Bb, 38,FB,FFC9 
CD, 90, BB, 21,02,09,481C 550 DATA 32,11,78,3E,02,0D,21,92,86,CD, 
410 DATA CD,75,BB,06,06,0€,30,21,13,80, | 19,86,3E,0E, DD, 21,0590 


11,90, 87, 7E, 81, 12, 4D5C 
415 DATA 23,13,10,F9,21,97,87,06,0B, CD, 
57,87, 21,04,09,CD, 5291 


555 DATA AA,86, CD, 19,86, CD, 4B, 86, 38,FB, 
32,19,78, 3E,02, DD, OCDD 
560 DATA 21,AA,86,CD, 19,86,3E, 0E, DD, 21, 


08,36,C3,19,10,FB,C005 420 DATA 75,BB,21,AD,87,06,0B,CD,57,87, | C2,8b,CD,19,86,CD, 1485 
280 DATA C9,3E,00,32,D6,80,11,00,40,CD, | 3E,19,32,FA,77,3E,590A 565 DATA 4B,86,38,FE, 32, 21,78, 3€, 02, DD, 
E2,86, 06,03, C5, 78, Cb60 425 DATA 0A,CD,90,BB,21,03,09,CD,75,BB, | 21,C2,86,CD, 19,86, 1B26 
285 DATA 3C,CD,60,81,C1,10,F7,3E,01,32, | 06,06,0€,30,21,1C, 5DDD 570 DATA CD,48,86,38,FB, 32, AC, 7D, C9, CD, 
3A,79,01,06,00,21,CBSE 430 DATA 80,11,7,87,7E,81,12,23,13,10, | DE,BB,DD,5E, 00, DD, 2499 
290 DATA DB,78,11,D3,78,ED,B0,01,17,00, | F9,21,A2,87,06,0B,6347 575 DATA 56,01,DD,6E, 02, DD, 66,03, CD,EA, 
21,24,80,11,0E,80,D126 435 DATA CD,57,87,3E,06,CD,96,BB,3%Æ,07, | BB,11,04,00,DD, 19, 2B00 
295 DATA ED,B0,ED,78,38,79,C3,13,76,3E, | CD,90,BB,21,19,06,69F1 580 DATA 06,05,C5, DD, SE, 00, DD, 56,01 ,DD, 
00,32, Dé, 80,01,17,D806 440 DATA CD,75,BB,21,B8,87,06, 0B,CD,57, | 6E,02,DD,66,03,CD,319F 
300 DATA 00,21,24,80,11,0E,80,ED,B0,C3, | 87,11,FB,C4,CD,FE, 7245 585 DATA F6,BB,11,04,00, DD, 19,C1,10,E8, 
8C, 81, 2A, 20, 20,20, DD61 445 DATA 7C,DD,21,24,7C, DD, 36,00,01,DD, | C9,CD,06,BB, 2A,41,38Dé 
305 DATA 56,69,65,20,65,6E,20,42,4F,4E, | 36,01,01,21,A3,7C, 7828 590 DATA B5,0E,00,46, BB, 28, 04, 0C, 23,18, 
55,53, 20, 20, 20, 2A,E1A9 450 DATA DD,75,02,DD,74,03,DD,36,04,00, | FB,79,06,05,21,DA, 3D81 
310 DATA 3E,00,CD,0E,BC, CD, 6C,BB,3E,05, | DD,36,05,01,DD, 36, 7E13 595 DATA 86,F5,3E,FF,BE,28,0€,F1,BE,28, 
CD,96, BB, 3€, 01,CD,EBDF 455 DATA 06,00,DD,21,A3,7C, DD, 73,00,DD, | 03,23,10,F3,3E,07,4472 
315 DATA 90,BB,3€,01,01,00,00,CD,32,BC, | 72,01,3E,1D,32,A3,8406 600 DATA CD,5A,BB,37,C9,F1,77,37,3F,C9, 
3,05, 01,00,00,CD,ED36 460 DATA 7D,DD,21,37,97,DD,E5,CD,9F,79, | 38,01,AA,00,38,01,4817 
320 DATA 32,BC,3E,F0,21,52,83,CD,AB,EB, | 11,FB,C4,CD, 54, 7D,BDé4 605 DATA DC,00,44,01,DC,00,38,01,EA, 00, 
21,01,01,CD,75,BB,F498 485 DATA DD,E1,21,98,C6, 11,00,08,06,3F, | 2C,01,DC, 00, 38,01,4F79 
325 DATA 21,5C,83,7E,FE,00,28,08,E5,CD, | CD,19,BD,C5,E5,06, 9452 610 DATA DC, 00,38,01,78,00,38,01,46,00, 
5D,BB,E1,23,18,F3,FC1D 470 DATA 08,23,7E,28,77,19,10,F9,E1,23, | 44,01,46,00,38,01,5249 
330 DATA 11,37,97,21,00,00,22,5A,83,06, | C1,10,F0,06, 08, DD, 9A6F 615 DATA 38,00,2C,01,46, 00, 38,01,46,00, 
00,05, 21,00,00,D5,FFDD 475 DATA 7E,00,77,DD,23,19,10,F7,DD,ES, | 1C,01,90,00,E4,00,5504 
335 DATA 3E,00,B8,28,06,11,00,08,19,10, | D1,21,87,A5,37,3F,A20A 620 DATA 90,00,E4,00, 98, 00, D4, 00, 90,00, 
FD,11,00,C0,19,ED,0417 480 DATA ED,52,20,04,DD, 21,37,97,06,06, | E4,00,B8, 00,E4,00, SAC4 
340 DATA 5B,5A,83,19,D1,7E,12,15,C1,04, | C5,06,FF,10,FE,C1,ABDE 625 DATA 90,00,54,01,90, 00, BC, 01, 90, 00, 
3,08, 90,20, DC, DS, 0A48 485 DATA 10,F8,CD,09,BB,F5,06, 30, 90,38, | 8C,01,98,00,9C,01,5F18 
345 DATA 2A,54,83,23,22,5A,83,11,D0,01, | 27,06,0A,90, 30, 22,AE83 630 DATA 90,00,8C,01,88, 00, 8C,01, 90,00, 
37,3F,ED,52,D1,20,0FF9 490 DATA 80,F5,06,30,80,F5, 3€,05,CD,96, | FF,FF,FF,FF,FF,C3,6798 
350 DATA C8,C9,00,00,00,76,D8,00,00,00, | BB,3E,09, CD, 90,BB,B6b3 635 DATA B5,84,14,4F,13,21,00,C0,AF,BC, 
00,00,43,45,4€, 54, 1402 495 DATA 21,04,13,CD,75,BB,F1,CD,50,BB, | CB, 1A,B9,28,05,77,6DD8 
355 DATA 49,50,45,44,45,20,2E,2E,2€,2€, | F1,87,06,0F,80, 32, BDAD 640 DATA 23,13,18,F4,13, 1A,FE, 00, 20,03, 
2,2€, 20,A4,20,54, 1705 500 DATA FA,77,F1,FE,6A,20, 16,3E, 48,32, | 79,18,F2,47,13,1A,725F 
340 DATA 68,69,65,72,72,79,20,4D,41,54, | 09,78,3C,32,11,78,C3DD 645 DATA 13,77,23,10,FC, 18,E1,0E,9F,79, 
48,49,41,53, 20,31, 1CE0 505 DATA 3C,32,19,78,3C,32,21,78,3C,32, | 12,13,21,00,C0,AF,77EC 
365 DATA 39,38,38,20,2E,2E,2E,2E,2€,2€, | AC,7D,C9,FE,63,C2,CAbb 650 DATA BC,28,43,E5, 7€, 23, BE, 20, 2F,23, 
2,26, 2E,2E,2E,2E, 1FDI 510 DATA DF,86,06,05,21,DA,86,36,FF,23, | BE,20,2B,AF, BC, 28, 7E85 
370 DATA 2E,2€,2E,2€,2€,2E,20,4A,3A,4A, | 10,FB,3E,00,CD,0E,DODS 655 DATA 27,E1,79,12,13,06,03,23,23,E5, 
6F,79,73,74,69,63,246E 515 DATA BC,CD,03,BB,21,77,87,CD,63,87, | 7E,23,BE,20,0F,23,82F0 
375 DATA 6B,20,20,20,43,3A,43,6C,61,76, | 01,00,00,CD, 38, BC, D7B2 660 DATA AF,BC,28,0A,3E,FF, BB, 28,05,E1, 
69,65, 72,20, 20, 20, 28DC 520 DATA 3E,0E,01,12,00,CD,32,BC,21,10,| 23,04, 18,EB,E1,78,8A13 
380 DATA 28,30,F0,39, 29, 3A,4E,69,76,65,@k,, 10, CD, 3€, BC, 21,D4, DCC9 665 DATA 12,13,7E,12,13,23,18,C7,E1,7E, 


hs) 





12,13,7E, 23, 89, 20, BEDB 
670 DATA BE,AF,12,13,18,B9,C9,C5,E5,7E 
CD, 5D,BB,E1,23,C1, 9709 
675 DATA 10,F5,C9,3E,00,06, 10,C5,FS,ES, 
46,48,CD, 32, BC, E1, 9FC4 
#80 DATA 23,F1,3C,C1,10,F1,C9,00, 14,12, 
07,1A,18,02, 16,00, M416 
685 DATA 00,08, 10,11,0B,00, 06, 00, 18, 12, 
06,03, 00,02, 11,02, 1498 
490 DATA 18,00,00,00,00, 00, 00,53, 43, 30, 
20, 3, 30, 30, 30, 30, A690 
495 DATA 30,30,52,45,43, 20, 34, 30, 30,30, 
30,30, 30,4€, 49,56, AAS1 
700 DATA 20, 3A, 20, 20, 20, 20, 20,35, M, 20, 
54,2E, 4D,41,54,48, ADDO 
705 DATA 49,41,53,7B,3C,3C, 78,03, 03,30, 
78,07, 03, 78,06, 3C,B19F 
710 DATA 7B,04,03,7B,39,3C,03,03, 3C,3C, 
7E,03,03,7B,0F,3C, B4D6 
715 DATA 03,03,78,03,3C,68,F0,F0, D0,7B, 
2€,F0,D0,F0,E0, 78, BDé2 
720 DATA 03,03, 78,07, 30,03, 03, 7B, 03,30, 
7B,04,03,3C,03,3C,BFE3 
725 DATA 3C,03,78,03,3C,68,F0,F0, D0,7E, 
2€,F0,D0,F0,E0, 7B,CBAB 
730 DATA 06,30,78,05,03, 30, 78,05, 03,78, 
03,30, 03,30, 3C, 03, CB64 
735 DATA 7B,03,23C,68,F0,F0, DO, 7B, 2€, FO, 
00,F0, F0, 78,03, 03, D3FO 
740 DATA 3C,78,07,03,3C, 78, 03,03, 30,03, 
30,03, 78,08, 3,03, DéA9 
745 DATA 78,04, 3C,68,F0,F0, D0, 7B, 2€, FO, 
D0,F0,E0, 78,03, 03, DF34 
750 DATA 7B,03,3C, 7B,03,03, 30, 7B,05,03, 
30,03, 30, 78,03, 03,E22C 
755 DATA 30,03, 78, 30,30, 7B,03,03, 3C, 7B, 
03,03, 30, 78,05,03,E55C 
760 DATA 3C,7B,08, 03,30, 03, 78,39, 30,03, 
3C,78,09,03,3C, 7B,EBCS 
765 DATA 03,03,3C, 78,03, 03, 7B,03, 30,03, 
03,78, 38, 30,03, 7B,EBBS 
770 DATA 16,30,78,35,03, 78,04,3C, 03,78, 
44,30,03, 78,04, 3C,EF37 
775 DATA 03,78, 4A,30,03, 7B,04,3C, 03,7B, 
09, 3C, 6C, CC, 7B, 03,F372 
780 DATA 30,78, 06,CC, 30, 6C, CC, 9C, 30, 3C, 
CC, CC, 90, 6C, 78, 05,FAAS 
785 DATA CC, 30, 78,05, CC, 0, 60, 78,04, CC, 
30,30, 6C, 78,06, CC, 017B 
790 DATA 3C,7B,04,C0,9C, 3C, 60, 78, 06, CC, 
78,04,3C, 03, 78,04, 06DO 
795 DATA 30,03, 78, 07,30, CC, 78,04, 3C,6C, 
3C, 60, CC, 3C, CC, 7B, 0CB7 
800 DATA 04,30, CC, 90, CC, 30, 8, CC, 78,03, 
3C,6C, CC, 78,05, 30, 1340 
805 DATA CC, 90, 78,03, 30, 6C, CC, 3C, 3C, CC, 
90,30, 6C, CC, 3C, CC, 1803 





4 (PSE) 


810 DATA 7B,04,3C, CC, 90, 3C, 30, CC, C, 60, 
,3C, CC, 78,06, 3C, 2203 
815 DATA 03,7B,04, 30,03, 78,07,3C,6C, CC, 
3C, 30, 60,90, 3C, 4C, 26E2 
820 DATA CC, 78,03, 30, CC, 30, 3C, CC, CC, 
3C, CC, CC, 78,03, 3C, 20DE 
825 DATA 6C, CC, 78,05, 3C, CC, 90, 78, 03,30, 
&C, CC, 78,05, 3C, 6C, 3454 
830 DATA CC, 78,03, 30, CC, 30, 3C, CC, 9C, 3C, 
CC, 9C, 30, 8C, CC, 7B, 3019 
835 DATA 03,30, CC, 78,04, 30,03, 78, 04,30, 
03,78, 4A,3C,03,7B,401F 
840 DATA 04,30,7B, 10,02, 78, 2F,2C, 78,00, 
03,78,13,3C. 78, 31,43D4 
845 DATA 03, 7B,FF, 30, 30, 3, D0, 7E,08,F0, 
CO,94,7B, 38, 3C,68,4AF3 
850 DATA CO,7E,08,FO,E0, 2C, 3,68, 78,04, 
F0, 00, 78, 42, F0, E0, 5382 
855 DATA 7B,04,F0,94,78,07, 20, DO, 7B,42, 
F0,E0, 78, A6, 3C, 00, 5B2D 
860 DATA CO,C0, 7E, OA, 00, CO, 7B, 22, 00,30, 
3C,78,03,03, 30, 7B,60%F 
865 DATA 07,03, 78,06, 3C, 78,04,03, 78,39, 
3C, 03,03, 3C, 30, 7B,6371 
870 DATA 03,03, 78B,0F,3C,03,03,7E, 03,30, 
6B,F0,FO, DO, 7B, 2€, 68BE 
875 DATA F0,D0,F0,E0, 78,03, 03,78, 07,30, 
03,03, 78, 03, 30, 7B,6EC8 
880 DATA 04,03,3C, 03,30, 3C, 03,78, 03,30, 
68,F0,FO, DO, 7B, 2€, 7404 
885 DATA F0,D0,F0,E0, 78,06, 30, 7B, 05,03, 
3C,7B,05,03,7B,03,7A11 
890 DATA 30,03, 3C,3C,03, 78,03, 3C, 68,F0, 
F0,D0, 78, 2E,F0,D0,8106 
895 DATA FO0,E0,7B,03,03, 30, 78,07,03,30, 
78,03, 03,30, 03, 3C,8550 
900 DATA 03, 78,03, 20,08, 78, 04,30, 68,F0, 
F0,D0, 7B, 2E,F0, D0,8C4C 
905 DATA F0,E0,78,03,03, 78,03, 3C, 78,03, 
03,30, 78, 05,03, 3, 7003 
910 DATA 03,30, 78,03,03, 3C, 03, 78, 30,30, 
78,03,03, 3C, 78,03, 9401 
915 DATA 03,30, 78,05,03, 3C, 7,03, 03,30, 
03,78, 39, 30,03, 3C, 96EE 
920 DATA 7B,09,03,30, 78,03, 03,30, 78,03, 
03,78, 03,30, 03,03, 994F 
925 DATA 78,38, 30,03, 78, 16, 30, 78, 35,03, 
7B,04,3C,03,7B, 4A,9DA4 
930 DATA 3C,03,78,04,3C, 03,78, 44, 30,03, 
7B,04,3C,03,7B, 08, A0EE 
935 DATA 3C,6C, CC, CC, 90, 3C, 30, 78,06, CC, 
30,30, CC, 9C, 3C, 3C,A7DF 
940 DATA 6C, CC, 30,60, 78,05, CC, 3C, 78,05, 
CC, 90, éC, 78,05, CC, AEE7 
945 DATA 30,60, 78,06, CC, 30, 78,05, CC, 3C, 
éC, 78,06, CC, 7B, 04, B4D8 
950 DATA 3C,03,78,04,3C, 03, 78,07, 3C, CC, 


KL 
















78,06, 3, 6C, 78,03, 8906 

955 DATA CC, 78,04,3C,CC, 9C, CC, 9, éC, CC, 
78,03,3C, 60, CC, 7B,C102 

960 DATA 05,30, CC, 9C, 78,03, 3C, éC, 7B,04, 
CC, 90, 3C, éC, 7B,03, C6DE 

965 DATA CC, 7B,04,3C, CC, 9C, 2, 3C, CC, 9, 
éC, 78,03, CC, 7B, 06, CDE4 

970 DATA 3C,03, 78,04, 30,03, 78,08, 3C, CC, 
9C,3C, CC, 90, 3C, 6, D354 

975 DATA CC, 78,03, 3C,CC, 30, 3C, CE,9C, 3, 
3C, CC, CC, 78,03, 3C, DAS 

980 DATA 6C,CC, 7, 04,3C LC C,CC,78,08, 
3C,6C, CC, 78,05, 3C,E0FS 

985 DATA éC, CC, 78,03, 30, CC, 3, 3C, CC, 9€, 
éC, CC, 90, 3C,6C, CC, EBDB 

990 DATA 78,03, 3C, CC, 7B, 04, 30, 03, 78,04, 
30,03, 7B,4A,3C,03,ECE1 

995 DATA 7B,04,30, 78, 10,03, 7B, 2F, 3, 78, 
0D,03,7B, 13,30, 7B,FOEO 

1000 DATA 31,03,7B,FF, 3, 3C, 3C, DO, 78,05 
,F0,E0,C0, C0, FO, 94,F966 

1005 DATA 7B,38,3C, 68,F0, CO, C0, DO, 78,05 
,F0,E0,3C, 3C, DO, 7B, 0210 

1010 DATA 04,F0, D, 7B,42,F0,E0, 7, 04,FO 
,E0, 78,07, 3C, DO, 7B, OAB9 

1015 DATA 42,F0,E0, 78, Ab, 3C, 40,80, 40, 80 
,78,09,00, C0, 7B, 22, 1189 

1020 DATA 00,30, 3C, 78, 03,03, 3C, 78, 07,03 
,78,06,3C, 7B,04,03, 1482 

1025 DATA 78,05, 3C, 68, 94, 7B, 30, 3C, CO, 3C 
103, 03,30, 3C, 78,03, 1919 

1030 DATA 03,78,0F,3C, 03,03, 78,03, 3C, 68 
,F0,F0,D0,78,2€,F0, 1F53 

1035 DATA D0,F0,E0,7B,03,03, 7B, 07, 3C, 03 
,03, 78,03, 3C, 78,04, 2471 

1040 DATA 03,3C,03, 3C, 30,03, 78,03, 3C,68 
,F0,F0,D0, 78, 2€, FO, 2499 

1045 DATA D0,F0,E0, 7B,06, 30, 7B, 05,03, 3C 
,78,05,03, 7B, 03, 3C, 2FF2 

1050 DATA 03,30, 3C, 03, 78,03, 30,68, F0, FO 
,D0, 7B, 2€, F0, DO, F0, 3798 

1055 DATA E0, 78,03, 03, 30, 78, 07,03, 3, 7B 
,03,03,3C,03, 30,03, SAFB 

1060 DATA 7B,03,3C, 03, 78,04, 3C, 68, FO, FO 
,D0,7B, 2€, F0, D0,F0, 42€! 

1065 DATA E0, 78,03, 03, 7B,03, 3C, 78, 03,03 
,3C,7B,05, 03, 30,03, 467B 

1070 DATA 3C,7B,03,03,3C, 03, 7B, 3D, 3C, 7B 
,03, 03,30, 78, 03,03, 4949 

1075 DATA 30, 78,05, 03, 3C, 78,03, 03, 30, 03 
,78,39,3C,03,3C, 7B, 4D0E 

1080 DATA 09,03, 3C, 7B,03,03, 30, 7B, 03,03 
,78,08,3C,03,03, 7B, 4FCF 

1085 DATA 38,30, 03, 7B, 16, 30, 78,35, 03, 7B 
,04,30,03, 78,44, 3C, 5385 

1090 DATA 03,7B,04,3C,03,7B, 4, 3C, 03,78 
,04,30,03, 7B, 08, 3C, 56C7 





1095 DATA 78,04, C0, 3C, 30, 7B, 06, CC, 3, 2€ 
CC, 90, 30, 30, 8, CC, 5D67 

{100 DATA 30,30, 7E, 04, CC, 9, 2C, 60, 7H, 04 
CC, 30, 30, 78,05, CC, 6370 

1105 DATA 90, 30, 7B, 06, CC, 3C,6C, 7E, 04, CC 
,9C, 30, 78,06, CC, 7B, 6A35 

1110 DATA 04,30,03, 78,04, 3C, 03, 7,07, 3C 
CC, 78,06, 30, 4C, 7, 6E64 

1115 DATA 03, CC, 78,04, 30, CC, 90.60, 90, éC 
CC, 78,03,3C, 60, CC, 7588 

1120 DATA 78,05,3C, CC, 90, 7B, 03, 3C,6C. 7 

,04,C0, 20, 20, 6, 7E, 7B7C 

1125 DATA 03, CC, 78,04, 2C,CC, 90. 30, 3C, CC 
,9C, 6, 78,03, CC, 78, 827F 

1130 DATA 06, 20,03, 78,04, 3C, 03, 7E, 06, 3 

,78,04,C0, 30, 30, 78, 867F 

1135 DATA 06,CC, 30, 3C, CC, 90, 30, 30, 8, CC 
,78, 03,30, 60, CC, 7E, D4E 

1140 DATA 03,30, 60, 78,04, CC, 30, 30, CC, CC 
,9C,78,04,30, 78,06, 9320 

1145 DATA CC, 3C, 6C, 78,04, CC, 90, 3C, 7, 0b 
CC, 78,04, 3C, 03, 78, 9949 

1150 DATA 04, 30,03, 78, 44, 30, 03, 78, 04,30 
,78,10,03, 78, 2F, 30, 9CBF 

1155 DATA 7B,0D,03, 78, 13, 3C, 78, 31,03, 78 
FF, 30,30, 3C, 68, 7B, A1D4 

1160 DATA 04,F0,E0, DO, 78, 03,F0, 94, 7E. 38 
,3C,68,7B,03,F0,E0,AAÎF  . 

1165 DATA D0,78,04,F0,94, 30, 3C, DO, 7B,04 
,FÜ,D0, 78, 42,F0,E0, B306 

1170 DATA 7B,04,F0,E0, 7B, 07, 30, 68, 7B, 42 
,C0,94,7B, A6, 30, 40, BA29 

1175 DATA 80,00, 00, 40,80, 40, B0, Cü, 40, CO 
,00,40,C0, C0, 00, 40, BFE9 

1180 DATA CO, 80,00, CO, 00, 40, 80, 7E, 05, 0 
,C0,C0,00, CO, 40, CO, Ch49 

1185 DATA 00,C0, 40, C0, 00, 00, CO, Cb, 0, CO 
,40,00,00, 3C, 3C, 7B, CCSC 

1190 DATA 03,03, 30, 78,07, 03, 7B, 06, 3C, 7B 
,04,08,78,05, 30, 90, CFAE 

1195 DATA 60,78, 2F, 30, bB, 30,94, 03, 03,3 

,30,7B,03,03, 7B,0F, D3A9 

1200 DATA 30, 03,03, 78,03, 3C, 68,FÜ, FO, DO 
,78,2€,F0,D0,F0,E0, DBF6 

1205 DATA 7B,03,03, 78,07, 30, 03, 
,3C,78,04, 03, 3C, 03, DEBb 

1210 DATA 3C, 30,03, 78,03, 3C,68,F0, F0, DO 
,78,2E,F0,D0,F0,E0,E73C 

1215 DATA 78,06, 30, 78,05, 03, 3C, 78, 05,03 
,78,03,3C,03, 3C, 3C, EA7O 

1220 DATA 03, 78,03, 3C,68,F0,FO, DO, 7B, 2€ 
,F0,D0,F0,E0, 78,03,F2FC 

1225 DATA 03,30, 7B,07,03, 3C, 7B, 03, 03, 3C 
,03, 30,03, 78, 03,3C,F5E5 

1230 DATA 03,7B,04, 3C,68,F0, FO, 7B, 2F, CO 
,D0,F0,E0, 78, 03,03, FD46 

1235 DATA 78,03, 30, 7B, 03,03, 3C, 7B,05,03 


03, 78,03 











er 03,30, 7B,03,03, 003€ 

1240 DATA 3C,0S,7B,3D,3C.7E,03,03,3C,7E 
«03,03, 3C, 78,05, 03,030 
1245 DATA 3C,7E,03,03,3C,03 
.3C,7B,05,03,1C, 7B, G6D5 
1250 DATA 95,07,3C,78B,03,05,7E, 03, 20,03 
,03,78,38,3C. 03, 78,095 

1255 DATA 16,3C,7E,35,03,7B,04,32C,03,7E 
A, 2C,03,7B,04,3C,O0D47 
1260 DATA 63,7H,4A,3C,03,78,04,3C,03,7E 
08, 3C,CC, 9C, 3C, CC, 123E 
1265 DATA 9C,3C, 6C,CC, 7E,03 
CC, CC. 3C, 3C, 8C, CC, 1991 
1270 DATA 78,03,3C,CC, CC, 9C,7E, 93, 3C, 6€ 
EC, CC. 7B,03, 3C, 6C, 2063 
1275 DATA CC, AC, 3C, CC, 90. 3C, CCC, 7E,GS 
130, CC, 3C, 3C, CC, 9C, 27E9 
1280 DATA 6C, CC, 9C, IC, 6C, CE. 7E,08,3C. CC 
,78E,04,3C,05, 7B,04,2DF4 
1285 DATA 3C,03,78H,07,3C,CC,7B,06,3C, 60 
,7B,03,CC, 7B,04,3C, 32EB 
1290 DATA CC, 9C, 6C, CC, 8C, CC, 7E,05,3C, 6C 
CC, 78,05, 3C, CC, 9C, SAD? 


78,3%, 20,05 


30, CC, 30,0 


| 1295 DATA 78,03, 30,60, 78,03, CC, 7B, 03,30 


6, 78,03, CC, 7B, 04, 4038 
1300 DATA 3C,CC, 90, 3C, 3C, CC, 0, éC, 78,03 
CC, 78,06,3C, 03,78, 46AD 
1305 DATA 04, 30,03, 78,08, 3C,6C, CC, CC, 9C 
20,30, 78, 06, CC, 3C, 4050 
1310 DATA 3C,CC, 90, 3C, 30, bC, CC, 7E, 03, 3C 
CC, CC, 90, 3C, 3C, 7B, 5385 
1315 DATA 05,CC, 90, 6C, 78,03, CC, 7B, 03,30 
60, 78,06, CC, 3C, 7B, 5902 
1320 DATA 05,CC, 30, 6C, 78,06, CC, 78, 04, 3C 
,03,78,04,3C, 03, 78, SEBF 
1325 DATA 4, 20,03, 78,04, 30, 7B, 10, 03, 7E 
,2F, 30,78, 0D, 03,78, 624D 
1330 DATA 13,30,78,21,03, 7B,FF, 30, 3C, 3€ 
,68,78,04,F0, DO, 7B, 6898 
1335 DATA 04,F0,94, 78,38, 3C, 66, 7E,, 04,FÜ 
.E0,78,04,F0,94,3C, 7008 
1340 DATA 68,78,05,F0,D0,7B,42,F0,E0, 7B 
,05,F0,94,7B,F0, 2C, 78E8 
1345 DATA 00, C0,C0, 00, 40,80, 40, 80, 40, BÜ 
,40,80, 00, C0, 7B, 04, 7EA7 
1350 DATA 00,C0, 00, 40,80, CO, 7B, 05, 00, 40 
,80,40, 80, 40, CO, 40, 8427 
1355 DATA 80,40, C0, 40,80, 40, 80, 40, 80, 40 
,C0,40,80, 30, 03,03, 89E9 
1360 DATA 30, 03,30, 03, 78,05, 3C, 7E, 08,03 
,3C, 30,03, 7B,04,3C, BCDF 
1365 DATA 68,30, 30, 7, 2F,C0,90, 30, 60,03 
,78,08,3C, 78,05, 03, 9178 
1370 DATA 30, 30, 7B, 03,03, 3C, 30,03, 7B,03 
,3C,68,F0,F0, DO, 7B, 9739 
1375 DATA 2E,F0,D0,F0,E0, 3C, 3C, 78,05, 03 
,78,03,3C, 03, 78, 09, 9033 


[20 






380 DATA 20,03, 30,30, 03,78, C2, 20, 6B,FÈ 
F0, 00,78, 2€, FD, DO, A428 


1385 DATA FQ,EU, IC, SC, 7E, 03,03, 7E,07,3C 
,03,78,03, 30,07, 2C, ABAE 
1290 DATA 78,02,03, 30, 07,03,7B,07, 3,48 
.F0,FO,D0, 78, 2E,FÜ, AED9 
1395 DATA DÔ,FO,EÙ, 05, FE, 09 
«30, 03,30, D 3C .03,H37A 
1406 DATA 7EK,03,3C,03,78,05,3C,DG,E0, 7 
.2F,2C,68,F0,94,3C,B9R1 
1405 DATA 20, 78,03,02, 20,03, 30. 03,78. 07 
3C,03,78,07,3C, 93, BC6A 
1416 DATA 3C,C3,78,39,3C,7E, 03,03, 7E, 07 
.30,07,30,03, 78,05, EF9A 
1415 DATA 30,03, 7E,03, 20, 
78, 0D, 30, 78,03,03,C2CE 
1420 DATA 78,06, 30,03, 78, 38, 2C, 02, 7E, df 
,20,07,78,04, 30,03, C6d? 
1425 DATA 7, 4A, 20, 03, 78,04, 30,03, 76, 4A 
20,03, 78,04, 3,03, C9Cé 
1430 DATA 7H, 07,3C, 6C, CC, 3C, 30, 60, 9C,3C 
8, CC, 78,03, 30, CC, DO3é 
1435 DATA 30, 3C, CC, EC, 30, 30,60, CC, 7B,07 
130,60, CC, 78,05, 3C, DÉA4 
1440 DATA CC, 9C, 7E, 03, 3C, CCC, SC, 3C, 6€ 
90, 3C, 6C, CC, 7,03, DD70 
1445 DATA SC,CC, SC, SC, CC, 9C,3C, CC, 9C, 30 
6C. EC, 78,03, 20, CC, E4Fé 
1450 DATA 78,04, 3C,03, 78,04, 30,03, 7E, 07 
,2C, CC, 78,04, 30, éC,E923 
1455 DATA 3C,6C, CC, 3C, CC, 78,04, CCC, 9 
30, CC, 60, CC, 7,03, FO80 
1460 DATA 3C,6C,CC, 78,05, 3C, CC, 9C, 78,03 
3C.éC, CC, 78,05, 2C,F6C6 
1465 DATA 6C, CC, 3C, CC, 7B,04,3C, CC, 90, 3€ 
20, CC, 90, 60, CC, 3C,FE7D 
1470 DATA CC, 7B, 06, 3C, 03, 78,04, 3C, 02, 7B 
109, 3C,6C, CC, 78, 03, 033D 
1475 DATA 30, 7B, 06, CC, 3C,6C,CC, EC, 30, 3C 
60, CC, 90, 3C, 6C, 7E, 075 
1480 DATA 03,CC, 3C, 3C, 7B,05,CC,9C, 6C, 7E 
,03, CC, 7B, 03, 3C, 6C, 1080 
1485 DATA 7B,06, CC, 3C, 7B,04,CC, 9€, 3C, 40 
78,06, CC, 78,04, 3C, 1440 
1490 DATA 03,78,04, 30,03, 78,4, 30,03, 7E 
,13,30,03, 78, 2F,3C, 1A18 
1495 DATA 05,7B,FF,3C,7E,52,3C, 68, 7E, 04 
,F0,78,44,C0, 78,04, 20AF 
1500 DATA F0,94, 30, 78, 06, C0, DO, 7B,42,F0 
,E0,7B,06,C0, 7B,F0, 299 
1505 DATA 3,00, 00,40, 80, 40,80, 40, 86, 40 
,80, 40,80, 00, CO, 00, 2E75 
1510 DATA 00,40, C0, C0, 00, 00, C0, 80, 7B, 05 
,00,40,C0,C0,80,40,3475 
1515 DATA 80,00, 00,40, 80, 00,00, 40, 80, 40 
,80,40,80, 00, 00, 3C, 3831 
1520 DATA 03,03, 30,03, 30,03, 78,05, 3C, 7B 





9,20, US,7E, 03 


03, 78,39, 30,05 





,08,03,30, 2,02, 78, SAED 
1525 DATA 94,30, 68, 90, 60, DO, 7B, ZE, FO, CÜ 
13 C0,03, 78,04, 30, 4162 
570 DATA 78,05,03, 30,30, 7E, 03,02, 20, 3C 
pe 03,3C,68,F0, 4568 
1535 DATA FO,D0, 78,2E,F0,D0,FO,E0, 2, 30 
,78,05,03, 78, 03,30, 4019 
1540 DATA 03,78,09, 30, 03,30, 30, 08, 7E, 03 
,3C,68,F0,F0, D0, 7, 5247 
1945 DATA 2E,F0, D0,FO,E0, 20, 20, 7E, 03,0 
,78,07,2C,03, 78,03, 5890 
1550 DATA 30,03, 2C, 78,03, 02, 2,08, 03,7 
,03, 30,68, F0, F0, DO, 5DAD 
1955 DATA 7B, 2€, F0, D0,FÜ,E0, 03 
Et 03,3C,03,3C, 6345 
1560 DATA 03,20, 03, 78,03 
.68,94,78, 30, 20, CO, 6807 
1565 DATA 78, 02,20, 78,03,03, 30, 03, 3C, 03 
,78,07,3C, 03, 78,03, 6AFE 
1570 DATA 30, 02,30, 03,78, 29,30, 7B, 03,08 
78,07, 20,08, 30, 03, 6DEA 
1575 DATA 78,05, 30,03, 78,02, 30, CS, 7E, 2 
20,03, 78, 00, 30.78, 7198 
1580 DATA 03,0, 78, 06,20, 00, 7,28, 30, 03 
78,40, 20, 03,78, 04, 7403 
1585 DATA 30,07, 78,48, 20,02, 78,04, 20, 08 
78,48, 30,03, 78,04, 7857 
1590 DATA 30,03, 78, 07,20, 6C, 70, 7E, 02, 20 
CC, 30, 60, CC, 3C, éC, 7DFE 
1995 DATA 20,60, 30, 3C, CC, CC, 9€, 30, éC, CE 
.78,03,3C,6C, CC, 7B, 8533 
1600 DATA 05,30, CC, 90, 7E,03, 30.60, CC, 3C 
30, 60,90, 3C, 6C, CC, BBC? 
1805 DATA 30,60, 30, 60, 3, 3C, CC, SC, 3C. 60 
CC, 30, 6, CC, 3C, 6C, 9282 
1610 DATA 3C,6C, 7B, 04, 30,03, 78,04, 3C, 03 
78,07, 30, CC, 78,04, 96AF 
1615 DATA 3C,6C, 30, 60, CC, 30, CC, 7E, 04,30 
CC, 90, 30, 78,03, CC, 907C 
1620 DATA 78,03, 30, 60, CC, 78,05, 20, CC, 9C 
78,08, 20,60, CC, 7E, AFF 
1825 DATA 05,20, 6C, CC, CCC, 78,04, 30, CC 
«90, 20, SC, CC, SC, BC, AAEF 
1830 DATA CC, 3C, CC, 78,06, 30,03, 7E, 04, 3C 
08,78, 4A, 30,03, 78, AF6Ù 
1625 DATA 04,20, 03,78, 44,30, 03,78, 13, 3C 
.02,78,2F,3C, 03,78, 8208 
1640 DATA FF,30,78,53,30, 
,78,42,F0,E0, 78,03, BB36 
1645 DATA F0,E0, 78, 08, 3C, DO, 78, 42,F0,E0 
,78,F6,3C, 40,80, 40, C3CF 
1850 DATA 80,00, C0, CO, 80, 40,80, 40, 80, 00 
C0, 40, 80, CO, 00, CO, CACF 
1655 DATA 00,40, 86, C0, 7E, 05, 00, 40,80, 00 
00,40, 80, 00, 00, 40, CEBF 
1860 DATA 80,00, 00, 40, 80, 40,80, 40,80, O0 
.00,3C,03,03, 30,03, DIDO 


,78,09,3C 


FES, 3 


,3C,02,7E 


D0, 78,03, FO, DO 





ARS \ 


ié70 DATA DO, Dù,78,2E,F0,D0,Cü,E0, 03, 7E 
13, 78,05,03, 30, DCFB 

675 DATA 3C,78,02.03,30, 30,03, 7B, 03,30 
pi FO,F0, 00,78, 2E,E2AE 
1680 DATA F,D0,F0,E0, 30, 30, 78,05, 03, 7E 
03, 20,03, 78,09, 3C,EBB6 
1485 DATA 03,30, 30,03, 78,03, 30, 6B,F0, F0 
,D0,78, 2€, F0, DO, FÔ,FOSF 
1690 DATA Ed, 20, 30, 78,03, 08, 78,07, 30, 0 
,78,08,3C, 03,30, 7B,F46D 
1895 DATA 03,03, 3C,03,03, 78, 03,30, 68,FO 
F0, D0, 78, 2€, FO, DO, FAF 
1700 DATA F0,E0,03,7B,09, 30, 03, 7E, 03, 3C 
03, 30,03,30, 03,78, FF3C 
1705 DATA 03,30,03, 78,38, 30, 78, 03, 0, 3€ 
,03,30,03,78,07,3C, 0220 
1710 DATA 03,7B,03, 30,03, 30,03, 78, 39, 2€ 
,78,03,03,78,07,30, 0SSE 
1715 DATA 03, 30,03, 78,05, 30,03, 7, 03,3C 
,03, 78,29, 30,03, 78, 0887 
1720 DATA OD, 20, 78, 08,03, 78, 06, 3C, 03, 78 
,38, 30,03, 78, 48, 3C, 0C04 
1725 DATA 03,7B,04, 30,03, 78, 4A, 3C, 03, 7B 
,04, 30, 03,78, 4A, 30, ÜFBB 
1730 DATA 03, 78,04, 30,03, 78,07, 3C, CC, 9 
78,08, 30, CC, 30, 80, 149D 
1735 DATA CC, 3C, 60, 3C, 60, 3C.3C, CC, CC, 3€ 
30,60, CC, 78,03, 3C, 1893 
1740 DATA 6C, CC, 78,05, 30, CC, 9, 7E, 03, 3C 
60, CC, 30, 3C, 60, 90, 2261 
1745 DATA 3C, 6C, CC, 3C,bC, 3C, 6C, 3C, 3C, CC 
,9C, 30, éC, CC, 30, 6C, 2921 
1750 DATA CC, 3C, éC, 3C, 6C, 78,04, 30, 03, 7B 
,04, 20,03, 78,07, 3C, 2077 
1755 DATA CC, 9C, 78,03, 30, CC, 3C, 6C, CC, 3 
60, 30,60, 30, 30, CC, 346D 
1760 DATA 90, 3C, éC, CC, CC, 78,03, 3C, 6C, CC 
,78,05,3C, CC, 9C, 7B, 3BDA 
1765 DATA 03,30, 6, CC, 78,05, 30, bC, CC, 3 
60, 30,60, 30, 3C, CC, 4109 
1770 DATA 90, 3C, C, CC, 30, C, CC, 3, 4C, ZE 
6C,78,04,30, 03,78, 47Eb 
1775 DATA 04, 30,03, 7B,44,3C,03, 78, 04, 3€ 
,03,7B, 4, 3C, 03, 78, 4B6A 
1780 DATA 13,30, 03,78, 2F, 30,03, 7B,FF,3C 
3, 78,08, C0, 7B, 34, 5092 
1785 DATA 3C, 78,08, C0, 3C, 68, 7B,04,F0, DO 
,78,42,F0,E0, 78, 04, 5803 
1790 DATA F0,94,78,07, 3C,D0, 78, 42,F0,E0 
,78,F6,3C, 00, C0, CO, &0CF 
1795 DATA 78,03, 00, 40,80, 40,80, 40, 80, 00 
,40,C0,00, 40, C0, 40, 65CD 
1800 DATA 80,C0,00, 40, 80, 7B, 05, 00, C0, CO 
,00,C0,C0, 00,00, CO, 8C0D 


1665 DATA 30,03, 78,09, 30, 78,08, 08,30, 20 9 ,00, 30,03, 03, 30, 03, 70CC 
03, 78,04, 30, 68,E0,DSCF 1810 DATA 3C,03,7E,05, 20, 7E 


1805 DATA C0, 78,03,00,C0,C0,00, C0, C0, 00% 
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08, ŸE 4 dC, 3C 
.03,78,04,3C,68,F0, 74DR 

1815 DATA FO,D0,7B,2E,F0,D0,F0,E0, OS, 7 
04,20, 78,05,03, 30, 7057 

1820 DATA 3C,7E,03,05,3C, 30,05, 7E, 03,30 
,68,F0,Fû, D0, 7B, 2E, B20A 

1825 DATA F0,D0,F0,E0, 0, 30, 78,05, 08, 7E 
03,30, 03,78B,09,3C,8812 

1856 DATA G3,3C,3C,03,7B,03,3C, 68,F0,FG 
.D0,7B,2E,F0,D0,FO, 8FBB 

1835 DATA EQ, SC, 3C,7B,03,05,78B,07,3C, 03 
.78B,05,30, 03,30, 78, 9:09 

1846 DATA 03,03,30, 03,03, 7B, 02, 2C, 68, FO 
F0, 00,78, 2€, F0, DO, PA4C 

1845 DATA FÜ,EU, 03, 78,09, 20,03, 7E, 02,20 
,03,30,03,3C, 03, 7B,9E98 

1850 DATA 03,3C,03,7E,3B,3C,7B,03,03,23C 
.03,30,03,78,07,3C,A189 

1855 DATA 63,78,03,30,03,30,07,7B,36,2C 
,78,03,03, 78,07, 3C, A4E7 
1860 DATA 03,3C,05,7B, CS 
,03, 78,29, 20,03, 78, A7E3 
1865 DATA 0D, 30, 7B, 03,03, 78,06, 3C,03, 78 
,38, 20,03, 78, 4A, 3C, AB6O 

1870 DATA 03,78,04, 30,03, 7B, 44, 3C,03,7E 
,04,30,03, 78, 4A, 3C, AEE4 

1875 DATA 03, 78,04, 20,03, 78, 07,30, CC, 7B 
04,30, 60, 3C, 6C, CC, B3CA 

1880 DATA 3C,CC,7E, 04,30, 7B,03,CC, 3C, 6€ 

CC, 78,03, 30,60, CC, BASD 

1885 DATA 76,05, 30, CC, 90, 7E,03,3C, 60, CC 

,3C, 30, 60, 90, 3C, 6C, CO7B 

1890 DATA CC,3C.CC,7E,04,3C,CC, 90, 30, 3C 

CC, 30, 60, CC, 3C, CC, CB32 

1895 DATA 78,06, 3C, 03, 78,04, 30,03, 7E, 07 

,3C,é, 90, 7B, 03, 3C, CC30 

1900 DATA CC, SC, 6C, CC, SC, 6C, SC, 0, 3C, 3C 

CC, 90, 3C, éC, CC, CC, D3EO 

1905 DATA 7B,03,2C, 40, CC, 78,05, 3, CC, 9€ 

,78,03,3C, 6C, CC, 7, DA63 

1910 DATA 05,30, 6C, CC, 3C, 0, 3C, éC, 30, 3C 

CC, 90, 30, 8, CC, 3C,EOBC 

1915 DATA 60, CC, 30, 6C, 3C,6C, 78,04, 3C, 03 

,78,04,30,03, 78, 4A,E585 

1920 DATA 30,03, 78,04, 30, 03, 78, 4A, 3C, 03 

,78,13,3C, 03, 78, 2F,EBFD 

1925 DATA 3C,03,7R,FF, 20, 20,68, 78, A, FO 

,94,78,38,3C,68, 7B,EF71 

1930 DATA OA,FO,94, 30,68, 7B,04,F0, DO, 7B 

,42,F0,E0,7B,04,F0,F7DE 

1935 DATA 94,78, 07, 3C,D0, 78, 42,F0,E0, 7 

F6, 3C, 78,04, 00, 40,FEF9 

1940 DATA CO, C0, 7B, 27,00, 40, 80,00, 00, 00 

,00,00, 00,00, 00, 00, 01DB 

1945 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00 

,00,00, 00,00, 00, 00, 01D8@ 


,30,03, 78,03, 2C 
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C e programme vous 


permettra d’enregistrer 
toutes les opérations 
d’entretien et de réparation 
de votre voiture automobile 
ainsi que les dépenses de 
carburant. Le mode d’emploi 
comprend 11 options. 


+ Saisie des opérations 


Lors de la première utilisation, cette option 
vous demandera quelques renseignements 
sur votre véhicule. 

Lors d’un appui ultérieur, le programme 
vous demandera la date, le kilométrage, 
le type d'opération (entretien, réparation 
ou divers) puis les dépenses occasionnées. 





e Menu des recherches 


La recherche peut s’effectuer selon la date, 
la nature de l’opération, les pièces, les 
accessoires, le garage, les dépenses. 


+ Consultation par opération 


Vous pouvez avoir accès aux fiches entre- 
tien, réparation ou divers. 


e Consultation de la totalité 
des fiches. 


e Dernière intervention. 


Après avoir entré la dénomination de l’in- 
tervention, vous aurez une visualisation de 
la fiche, le total kilométrique depuis la date 
indiquée. 

Attention la recherche s’effectue unique- 
ment sur la nature de l’intervention ou sur 
les pièces changées. 

e Sauvegarde des données (pas plus de 8 
lettres pour le nom du fichier). 

e Chargement des données. 

e Total des dépenses à ce jour. 

° Graphique : cette option vous indique 
sous forme de graphique les 10 dernières 
interventions concernant l’opération choi- 
sie. Cela permet d’observer la régularité 
des interventions. 

e Saisie des dépenses de carburant 

e Diverses informations : 

vous y trouverez des indications sur tou- 
tes les dépenses, le prix au kilomètre de 
votre véhicule et la consommation 
moyenne au 100. 
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20 ANNEE 
30 ‘ GESTION DEFENSES ET CONTROLE 
4û : ENTRETIEN VOITURE 

50 (c) STAUB Martial 

60 AVRIL 1988 


TO EEE 
80 ON ERROR GOTO 4556 

90 BORDER 13:INK 0,13: INK 1,0 

100 FAPER O:PEN 1:MODE 2 

110 DIM c{12) ,dat$(50),k11(50).nat$ 
(50) ,ch$(50) ,pie$ (50), ace$ (50) ,gar$ 
(50) , dep (50) 


PRINCIPAL #x#":LOCATE 21, 
@ B:PRINT STRINGS (36, 154) 





LA 
LE 
LE 
?LD 
LE 
èLF 
LG 
PT 
2WJ 
RF 
HZ 


120 1S="#HHARNE, HE FM: 118" RNHEE ED 
+" 

130 >RE 
140 “MENU PRINCIPAL RE 
150 RG 
160 CLS >UB 
170 ORIGIN 116,390:DRAN 384,0:DRAH  ?VE 
384,-28: DRAM 0,-28:DRAW 0, 0:0RIGIN 
120,386: DRAM 376,0:DRAN 376, -20:DRA 

W 0,-20:DRAN 0,0 

180 LOCATE 19,2:PRINT"# # # CARNET KM 
D'ENTRETIEN VOITURE # # # 

190 ORIGIN 6,310:DRAW 628,0:DRAW 62 >FY 
8,-248: DRAM 0,-248: DRAM 0,0 

206 LOCATE 21,7:PRINT"#t# ME NU  DBU 


210 ORIGIN 12,264: DRAU 616,0: DFAW & 
16,-192:DRA4 G,-192: DRAM G,0: ORIGIN 
16,260: DRA 608,0: DRAH 6ü8,-184:DR 
AW 6,-184: DRAH G,0 
220 LOCATE 4,16:PRINT"{. Saisie des >KQ 
Cperations":LOCATE 4,12:PRINT"3, R 
echerches":LOCATE 4,14:PRINT"S. Con 
sultation par Operation":LOCATE 4,1 
6:PRINT"4, Consultation Total des F 
iches":LOCATE 4,18:FRINT'S, Dernier 
e Intervention" 
230 LOCATE 44,10:FRINT"6. Sauvegard :CU 
e des Fiches":LOCATE 44,12:PRINT"7, 
Chargement des Fiches":LOCATE 44,1 
4:FRINT"8. Total des Depenses":LOCA 
TE 44,16:PRINT"9, Graphique":LOCATE 
44,1B:PRINT"O. Saisie Depenses Car 
burant" 
249 LOCATE 4,20:PRINT'XXXXXXXXXXXIX : 
XXXIX "sCHR$(24):" [Tinformatio 
ns diverses ":;CHR$&(24):" XXXXX 
LAXXAXREXELKEXAX" 

250 IF f$£5"" THEN Ic=INTILEN(##))/ TV 
2:LOCATE 27-1c,5:PRINT CHR$(24;s" D 
OSSIER : ":UPPER$(f$):" EN MEMOIRE 
"CHR$ (24) 

260 IF nini THEN LOCATE 12,23:PRINT :RN 
"ATTENTION VOUS AVEZ EFFECTUE DE NÜ 
UVEAUX ENREGISTREMENTS":LOCATE 24,2 

4: FRINT'NOUBLIEZ FAS DE LES SAUVEGA 
RDER" 


270 PRINT CHR$&(7); :MP 
280 a$=INKEYS:IF a$="" THEN 280 #XC 
290 IF a$="{" THEN 790 ND 
300 IF A$="2" THEN 1150 PC 
310 IF a$="3" THEN 3110 FE 
320 IF a$="4" THEN 2670 ?FT 
30 IF a$="5" THEN 2870 FX 
340 IF a$="6" THEN 410 NT 
350 IF a$="7" THEN 620 2NY 
360 IF a$="8" THEN 2560 ?P1 
370 IF a$="9" THEN 3310 ?PV 
380 IF a$="0" THEN 3660 PV 
390 IF UPPER$(a$)="]I" THEN 3830 >X0 
400 GDTO 280 IA 


40 


?RF 
à :RG 





430 ‘-— RH 
440 CLS DUC 
450 LOCATE 30,2:PRINT CHR$(24);" 5 HN 


AUVEGAR DE ";CHR$(24) 

460 LOCATE 2,5:PRINT"Entrez le Nom :PZ 
du Fichier (voiture)" 

470 IF #$<"" THEN LOCATE 21,13:PRI :UQ 
NT'VOUS AVEZ LE DOSSIER ":;UPPERS$(F$ 

);" EN MEMOIRE" 

480 LOCATE 2,8:PRINT"CRETURNI=Retou 7 








#0 r Menu" 


490 LOCATE 2,7:FRINT'Nom : "5CHR$ (1 : 

8};: INPUT f$:1F #$="" THEN GOTO 130 
ELSE IF LEN(F$);8 THEN 490 

500 PRINT: OFENOUT f$+".VOI" XR 
910 CLS 3UA 
520 LOCATE 24,10:PRINT'La disquette :J0 
est-elle prete ?" 

530 LOCATE 23,12:PRINT"Tapez sur ES 2MO 
PACE pour commencer" 

540 R$=INKEVS: IF R$=" " THEN S6Û :ŸY 
Jo0 GOTO 540 ?1F 
560 CLS:LOCATE 20,11:PRINT"ENREGIST >HL 
REMENT ":#f$;" EN COURS" 

570 WRITE#9,n:FOR s=1 TO n:WRITE#9, UP 
dat$(s),kil(s),ch${s) .nat$(s) ,pie$( 
s),ace$(s),gar$(s) ,dep(s) :NEXT 


580 WRITEN9,dt$, lit,al,toc,cnl >AD 
590 CLOSEOUT :TE 
#06 ni=n >YJ 
bi GOTO 13û :YH 
20 3RJ 
630 ‘CHARGEMENT RE 
640 ‘--—-- >TA 
65 CLS 3UF 
&bÔ LOCATE 29,2:FRINT CHR$(24):" C  >HO 
HARGEMENT ";CHR$(24) 

870 LOCATE 2,5:PRINT"Entrez le Nom FC 


du Fichier {voiture)" 

680 IF f$<5"" THEN LOCATE 21,13:PRI >UU 
NT'VQUS AVEZ LE DOSSIER ";UPPER#{#$ 
};" EN MEMOIRE" 

690 LOCATE 2,8:PRINT"CRETURNI=Retou : 
r Menu" 

700 LOCATE 2,7:PRINT"Nom : ";CHR$(1 UN 
8):: INPUT #$:1F f$="" THEN 130 ELSE 


IF LENI#$)>8 THEN 700 

710 PRINT: OPENIN #8+",VOI" VD 
720 CLS UD 
730 CLS:LOCATE 26,11:PRINT"CHARGEME YA 


NT EN COURS" 

740 INFUT#9,n:FOR s=1 TO n:INPUT#9, >U7 
dat${s),kil(s) ,ch$(s),nat$(s) ,pie$( 

s) ,ace$(s) ,gar$(s),dep(s) :NEXT 

750 INPUT49,dt$,lit,ml,toc,cml >AH 


760 ni=n >1F 
770 CLOSEIN 3FF 
780 GOTO 130 >1F 
790 ‘-—-- T6 
800 ‘ENT./REP >RJ 
BIO ‘——— >RK 
820 CLS UE 





830 ORIGIN 52,390:DRAW 544,0: DRA4 5 2ME 
44,-28:DRAW 0,-28:DRAW 0,0: DRIGIN 5 
6,386: DRAW 536,0: DRAW 536, -20: DRAW 
0,-20:DRAW 0,0:LOCATE 9,2:PRINT"## 
ENREGISTREMENT DE 


23 





5 CFERATIONS +#+" 


840 IF n=û THEN n=1{: LOCATE 22,7:PRI : 


NT'ATTENTIEN CECI EST LA FREMIERE F 
ICHE":LOCATE 13,8:PRINT'ELLE SERT U 
NIQUEMENT À ENREGISTRER L'ACHAT DU 
VEHICULE": GOSUE 4000:G0T0 1090 

850 LOCATE 9,4:PRINT"DOSSIER ";CHR$ 
(24i3" "yUPPERS(#$)5" ";CHR$ 124) :LO 
CÂTE 47,4:PRINT"Dernier Fiche Enreq 
istree : "ÿCHR$ (24) ;n;CHR$ (24) 


860 ORIGIN 68.322:DRAW 144,6:DRAW 1 : 


44,-20:DRAW 0,-20:DRAW 0,9 
870 n=n+1 


880 LOCATE 16,6:PRINT SFACES$(11):LO FI 


CATE 10,6: INPUT"DATE : ";dat${n) 


890 IF LEN(dat$tn))>8 DR VAL(MID#(d :! 


at$n),4,2));12 OR VAL (MID$(dat$in) 
,4,2))<1 THEN B80 
960 LOCATE 62,6:PRINT CHR$ (18) 
910 ORIGIN 368,2:22:DRAW 184,0: DRAW 
184,-20:DRAW 0,-20:DRAW 0,0: LOCATE 
17,6:PRINT SPACES(1):LOCATE 50,6: IN 
PUT"KILOMETRES : "skiln):IF kil(n) 
ékiltn-1) THEN LOCATE 56,8:PRINT"ER 
REUR !'UI":FOR t=1 TO 1000:NEXT:L0C 
ATE 55,8:PRINT CHR$(18):G0T0 900 
920 LOCATE 63,6:PRINT SPACE$ (1) 
950 LOCATE 2,9:FRINT"S'agit il de 
[Elntretien":LOCATE 18,10:PRINT"E 
Rleparation":LOCATE 18,11:PRINT"ID) 
ivers" 
940 LOCATE 46,10:PRINT"Votre choi:" 
:CHR$ (18): : INPUT ch$(n) :ch$ (n}=UFFE 
R$(ch$(n)):1F ch$(n)="D" OR ch${(n)= 
"R" OR ch$in)="E" THEN 950 ELSE 940 


930 LOCATE 1,9:PRINT CHR$ (20) 
960 IF ch$(n)="E" THEN GOSUE 1106 
970 IF ch$ini="R" THEN GOSUB 1110 
980 IF ch$(n)="D" THEN GOSUR 1120 
990 ki=kil(n)-kil(n-1) :LOCATE 10,8: 
PRINT" Vous avez effectue ";k15" Kms 
depuis la derniere intervention":k 
1=0 
1000 LOCATE 2,13:PRINT"NATURE 
5 "sCHR$ (18) :DRIGIN 124,210: DRAM 4 
40,0:DRAW 440,-20:DRAW G,-20:DRAW à 
,O:LOCATE 18,13:LINE INPUT nat$(n): 
IF LEN(nat$(n))}50 THEN LOCATE 1,14 
:PRINT CHR$(18):60T0 1000 
1010 LOCATE 18,13:PRINT SPACES$(1) 
1020 LOCATE 2,15:PRINT"'PIECE CHANGE 
5 "sCHR$ (18): ORIGIN 124,178:DRAW 4 
40,0:DRAW 440,-20:DRAW 0,-20:DRAW © 
,0:LOCATE 18,15:LINE INPUTipie$(n): 
IF LEN(pie$(n))50 THEN LOCATE 1,16 
:PRINT CHR$(18):G60T0 1020 


:UJ 


M 
*D1 


#JY 


A 
AD 





1930 LOCATE 18,15:PRINT SPACES(1):L >VD @ 2) ELSE le=0 


OCATE 2,17:PRINT"Suite SC 
HR$(18):ORIGIN 124,146: DRAW 240,0:D 
RAM 240,-20:DRAW 0,-20:DRAW G,0:LOC 
ATE 18,17:LINE INPUTspiei$:1F LEN(p 
ie1$):25 THEN LOCATE 1,18:PRINT CHR 
$(18):G0T0 1030 
1040 IF piei$="" THEN 1050 ELSE pie 
$(n)=pie$(n)+" - "tpiel$:piei$="" 
1050 LOCATE 18,17:PRINT SPACE$(1):L 
QCATE 2,19:PRINT'ACCESSOIRES : "5 
HR$ (18): ORIGIN 124,114:DRAW 440,0:D 
RAW 440,-20:DRAW 0,-20:DRAH 0, 0:LDC 
ATE 18,19:LINE INPUT; ace#(n):1F LEN 
{ace$(n))}50 THEN LOCATE 1,20:PRINT 
CHR$(18) :GOTD 1050 
1060 LOCATE 18,19:PRINT SPACES$(1):L 
OCATE 2,21:PRINT"GARAGE DOME 
HR$(18):0ORIGIN 124,92:DRAW 240,0: DR 
AH 240,-20:DRAW 0,-20:DRAH 0,0:LOCA 
TE 18,21:LINE INPUT; gar$(n):IF LEN( 
gar$(n))25 THEN LOCATE 1,22: PRINT 
CHR$(18):G0T0 1060 
1070 LOCATE 18,21:PRINT SPACES(1):L 
OCATE 2,23: PRINT"DEPENSES 5 "EC 
HR$ (18) :0RIGIN 124,50:DRAH 96,0:DRA 
W 96,-20:DRAH 0,-20:DRAW O,0:LOCATE 
19,23: INPUT depin) 
1080 LOCATE 18,23:PRINT SPACES#(1) 
1090 PRINT CHR$ (7); :LOCATE 33,25:PR 
INT'UNE TOUCHE S.V.P.":CALL &BB06:G 
OTO 130 
1100 LOCATE 15,10:PRINT"VEUILLEZ IN 
DIQUER LES DETAILS DE L'ENTRETIEN": 
RETURN 
1110 LOCATE 15,10:PRINT"VEUILLEZ IN 
DIQUER LE DETAIL DES REPARATIONS":R 
ETURN 
1120 LOCATE 15,10:PRINT'VEUILLEZ IN 
DIQUER LE DETAIL DES AUTRES OPERATI 
ONG": RETURN 


>MZ 


66 


FT 


XKF 


#VK 





1160 CLS : 

1170 WINDOW#1, 1,80, 7, 23:PAPER#1, 1:P 
EN#1,0 

1180 WINDOW#2, 1, 80, 25, 25:PAPER#?, 0: : 
PEN#2, 1:CL5#2 

1190 ORIGIN 124,390: DRAW 384, 0: DRAW 
384,-28:DRAW 0,-28:DRAU 0, 0:0RIGIN 
128,386: DRAW 376,0: DRAW 376, -20:DR 
AW 0,-20:DRAW 0,0:LOCATE 18, 2:PRINT 
"# MENU DES RECHER 
CHES #4" 

1200 IF n€=0 THEN 4030 NE 
1210 IF #$€>"" THEN le=INTILEN(##)/ ONU 





| 


1220 IF f$€>"" THEN LOCATE 24-le,5: >2Y 
PRINT CHR$(24)5" # # * FICHE TECHN 
IQUE ":UPPERS(fS)5" + + + M: CHRS (2 

4) 

1230 ORIGIN 160,302: DRAW 312, 0:DRAM ?DE 
312,-240: DRAM 0,-240:DRAW 0,0:DRIG 

IN 156,306: DRAW 320, 0:DRAW 320, -248 
:DRAW 0,-248:DRAW 0,0 


1240 LOCATE 25,8:PRINT"{ .Recherche ZA 
par Date":LOCATE 25,10:PRINT"2 .Re 
cherche par Nature":LOCATE 25,12:PR 
INT"3 .Recherche par Piece":LOCATE 
25,14:PRINT"4 .Recherche par Âccess 
oire":LOCATE 25,16:PRINT"S .Recherc 

he par Garage" 

1250 LOCATE 25,18:PRINT"6 .Recherch >CL 
e d'une Depense":LOCATE 25,20: PRINT 

"7 .Retour Menu Frincipal" 

1260 PRINT CHR$(7); NE 
1270 a$=INKEY#:IF a$="" THEN 1270  >7F 
1280 IF a$="1" THEN 1360 PP 
1290 IF a$="2" THEN 1660 >PV 
1300 IF a$="3" THEN 1860 >PP 
1310 IF a$="4" THEN 2060 PJ 
1320 IF a$="5" THEN 2250 >PM 
1330 IF a$="6" THEN 2440 PQ 
1340 IF a$="7" THEN 130 PH 
1350 GOTO 1270 MG 
1360 > YC 
1370 ‘Date " 
1380 CLS > AB 


1390 LOCATE 19,1:PRINT CHR$(24);" R à 
ECHERCHE D'UNE D 

A TE ";CHR$(24) 

1400 LOCATE 2,5:PRINT"Quelle Date V >XR 

oulez-vous consulter : ":CHR$(18);: 
INPUT re$ 

1410 IF LEN(re$)>6 OR MID$(re$, 3,1) 
€", " OR MID$(re$,6,1)<"." OR VAL( 

MID$(re$,4,2))>12 THEN LOCATE 31,7: 

PRINT'Entrez JJ.MM.AA":FDR t=1 TO 
1500:NEXT:LOCATE 31,7:PRINT SPACES$ 
(18):G60T0 1400 

1420 LOCATE 1,5:PRINT CHR$ (20) 

1430 FOR 5=1 TO n:1F dat$(s)=re$ TH 

EN r=s:s=n:re$="" 

1440 NEXT 

1450 IF r=0 THEN LOCATE 22, 10:PRINT 
"LA DATE DEMANDEE N'EST PAS FICHEE" 
:FOR t=1 TO 2000:NEXT:G0TO 1130 
1460 GOSUB 1470:G0T0 1630 

1470 CLS#1:LOCATE 2,5:PRINT"Les ren 
seignements recherches se trouvent 

dans la Fiche No "sr:LOCATE#1,6,2:P 
RINT#1,"Date de l'intervention ";da 
t$tr);" “s"Indication compteu 


>WM 


2YC 
?VM 


LA 
>RJ 


TG 
>MD 


24 











r "{kil(r);" Kms":GO0TD 1510 

1480 ORIGIN 72,338: DRAW 144,0:DRAH  >VN 
144,-22:DRAW 0,-22:DRAW 0,0:0RIGIN 

352,338: DRAW 200,0: DRAW 200,-22: DFA 
W 0,-22:DRAH 0,0 

1490 CLS#1:LOCATE 11,5:PRINT"Fiche 

No ";CHR$(24):" "ors® "sCHR$(24):LD 
CATE 46,5:PRINT"Operation "s;CHR$(24 
):LOCATE 57,5:PRINT SPACES (10) :GOSU 
B 2650:LOCATE 57,5:PRINT" "schi$;" 

"sCHR$ (24) :ch1$="" 

1500 LOCATE#1,6,2:PRINT#1, "Date de ?UA 
l'intervention "idat$(r);" Le 
“Indication compteur ";kil(r);" Kms 


FYC 


1510 PRINT#1,STRINGS (80, 154); : PRINT >PP 
#1," Nature de l'intervention : "in 
at$(r) 

1520 IF pie$(r)="" THEN 1550 

1530 IF LEN(pie$(r))>30 THEN na$=MI : 
D$(pie$(r),1,50)+"-":na1$=MID$ (pie$ 
(r),51,25) ELSE na$=pie$ (r) 

1540 PRINT#1,STRINGS (80, 144); : PRINT KA 


#1," Pieces Changees "in 
a$:1F nai${>"" THEN PRINT#1,TAB(29) 
pnal$ 

1590 IF ace$(r)="" THEN 1570 >UL 
1560 PRINT#1,STRINGS (79, 144) :PRINT# :MH 
1," Accessoires, Ingredients : "s;ac 
e$(r) 

1570 IF gar$(r)="" THEN 1590 >UJ 
1580 PRINT#1,STRING$ (80, 144) ;:PRINT >EU 
#1," Garage : "sg 
ar$(r) 

1590 PRINT#1,STRING$ (80, 144) :: PRINT >YU 
#1," Montant des Depenses sUU 
SING i$;dep(r) 

1600 PRINT#1,STRINGS (80, 154) ; >YD 
1610 r=0:na$=""s:na1$="" +QX 
1620 RETURN ?FC 
1630 re$="":CLS#2:PRINT CHR$(7);:L0 >PE 
CATE#2,28, 1:PRINT#2, "UNE AUTRE RECH 
ERCHE (O/N)" 

1440 a$=INKEYS$:IF a$="" THEN 1640  >ZH 
1650 IF a$="0" OR a$="o" THEN 1130 FE 
ELSE 130 

1660 CLS )AC 
1670 LOCATE 19,1:PRINT CHR$(24);" RPG 
ECHERCHE PAR NAT 
URE ";CHR$(24) 

1680 LOCATE 2,5:PRINT"Quelle est la >GY 


Nature de l'intervention a consult 

er : ";CHR$ (18); : INPUT re$:IF LEN(r 
e$)>25 THEN GOSUB 4040:LOCATE 1,6:P 
RINT CHR$(20):G0T0 1680 

1690 LOCATE 2,8:PRINT"A partir de q >PT 
uelle No de Fiche ";CHR$(18) ; 2 INPUT 


nf:1F nfèn THEN LOCATE 2,9:PRINT"V 
ous n'avez que"sn; "fiches en memoir 
e":G0TO 1690 


1700 LOCATE 1,5:PRINT CHR$ (20) >YD 
1710 LOCATE 28,10:PRINT'UN INSTANT TX 
JE CHERCHE" 

1720 re$=UPPER$ (re$):FOR s=nf TO n: ?MN 
nat$ (s)=UPPER$ (nat$ (5) ) :NEXT 

1730 lo=LEN(re$) LV 
1740 FOR s=nf TD n LC 
1750 loi=LEN{nat$(s)) ?QE 
1760 FOR d=1 TO lo1:01$=MID$(nat$(s LE 
),d,10):1F ol$=re$ THEN r=s:51=5:ou 
i=1:G0T0 1800 

1770 NEXT d ?VF 
1780 NEXT 5 >XB 


1790 re$="":nf=0: IF oui=0 THEN LOCA 
TE 24,10:PRINT"La recherche n'a pas 
aboutie !!'":G0T0 1650 ELSE oui=0: 
CLS#1:LOCATE 26,10:PRINT"La recherc 
he est terminee !!!":G0T0 1630 

1800 GOSUB 1470 >XD 
1810 PRINT CHR$ (7); :LOCATE#2, 16,1:P : 
RINT#2, "Voulez-vous continuer la re 
cherche O/N" 


AK 


1820 a$=INKEY$:1IF a$="" THEN. 1820 >ZH 
1830 IF a$="0" OR a$="o" THEN CLS#1 2RF 
:CLS#2:G0T0 1780 

1840 IF a$="N" OR a$="n" THEN s=n:6 >HY 
OTO 1780 

1850 GOTO 1820 >NC 
1860 CLS AE 


1870 CLS:LOCATE 19,1:PRINT CHR$(24) }YQ 

ÿ"RECHERCHE D'UNE 
PIECE ";CHR$(24) 

1880 LOCATE 2,5:PRINT"Quelle Piece 2>AB 

recherchez-vous : "s;CHR$ (18) ; : INPUT 
re$:IF LEN(re$)}25 THEN GODSUB 4040 

LOCATE 1,6:PRINT CHR$(20) :G0TO 188 

0 

1890 LOCATE 2,7:PRINT"A partir de q >PV 

uelle No de Fiche ";CHR$(18) ; : INPUT 
nf:1F nf>n THEN LOCATE 2,8:PRINT"V 

ous n'avez que"sn; "fiches en memoir 

e":G60T0 1890 


1900 LOCATE 1,5:PRINT CHR$ (20) XF 
1910 LOCATE 28,10:PRINT"UN INSTANT TZ 
JE CHERCHE" 

1920 re$=UPPER$ (re$):FOR s=nf TO n: >" 
pie$(s)=UPPER$ (pie$(s) ):NEXT 

1930 1o=LEN(re$) ?LX 
1940 FOR s=nf TO n LE 
1950 loi=LEN(pie$(s)) >0B 


1960 FOR d=1 TO loi:01$=MID$(pie$(s >DG 
),d,10):1F o1$=re$ THEN r=s:oui=1:6 
OTO 2000 


1970 NEXT d >VH 








1980 NEXT s 
1990 GOTO 1790 ?PD 
2000 GOSUE 1470 WG 


2010 PRINT CHR$(7)::LOCATE#Z,19,1:P DT 
RINT#2, "Voulez-vous continuer la re 
cherche O/N" 


2020 a$=INKEYS$:IF a$="" THEN 2020  ?YE 
2030 IF a$="0" OR a$="o" THEN CLS#1 ‘FA 
:CLS#2:G60T0 1980 

2040 IF a$="N" OR a$="n" THEN s=n:6 HT 
OTO 1980 

2050 GOTO 2020 #LJ 
2060 CLS:LOCATE 14,1:PRINT CHR$(24) 3LM 


;"RECHERCHE D'UN 
ACCESSOIRE ";CHR$(24) 

2070 LOCATE 2,5:PRINT"Quel Accesoir BL 
e recherchez-vous ":CHR$ (18) ; : INPUT 
re$:1F LEN(re$)>25 THEN GOSUB 4645 
:LOCATE 1,6:PRINT CHR$ (20) :60TD 207 

0 


2080 LOCATE 2,6:PRINT"A partir de q ?PA 
uelle No de Fiche ";CHR$(18) ; : INPUT 
nf:1F nfèn THEN LOCATE 2,7:PRINT"V 
ous n'avez que"sn;"fiches en memoir 
e":G0T0 2080 

2090 LOCATE 1,5:PRINT CHR$ (20) *YG 
2100 LOCATE 28,10:PRINT"UN INSTANT >TQ 
JE CHERCHE" 

2110 re$=UPPER$(re$):FOR s=nf TO n: >MA 
ace$ (5) =UPPER$ (ace$ (5) ) :NEXT 

2120 1o=LEN(re$) >LN 
2130 FOR s=nf TO n LH 
2140 loi=LEN(ace$(s)) >PD 
2150 FOR d=1 TO lol:o1$=MID$(ace$(s >DL 
),d,1lo):1F ol$=re$ THEN r=s:oui=1:6 
OTO 2190 ES 
2160 NEXT d UK 
2170 NEXT 5 WF 
2180 GOTD 1790 ?NF 
2190 60SUB 1470 >XG 


2200 PRINT CHR$(7)3;:LOCATE#2,18,1:P >DU 
RINT#2, "Voulez-vous continuer la re 
cherche O/N" 

2210 a$=INKEYS$:IF a$="" THEN 2210 
2220 IF a$="0" OR a$="o" THEN CLS#1 
:CLS#2:G0T0 2170 

2230 IF a$="N" OR a$="n" THEN s=n:G >HK 


>YD 
>RT 


OTO 2170 
2240 GOTO 2210 >MA 
2250 CLS:LOCATE 18,1:PRINT CHR$(24) >WY 


;"RECHERCHE PAR 6 
ARAGE ";CHR$(24) 

2260 LOCATE 2,5:PRINT"Quel Garage r >UN 
echerchez-vous ";CHR$ (18); : INPUT re 
$:1F LEN(re$)>25 THEN GOSUB 4040:L0 
CATE 1,6:PRINT CHR$(20) :G60T0 2260 


2270 LOCATE 2,6:PRINT"A partir de q >PC 


25 





FD uelle No de Fiche ";CHR$(18) ;: INPUT 


nf:1F nfin THEN LOCATE 2,7:PRINT"Y 
ous n'avez que"sn;"fiches en memoir 
e":60T0 2270 


2280 LOCATE 1,5:PRINT CHR#&{20) :YH 
2290 LOCATE 28,10:PRINT'UN INSTANT TE 
JE CHERCHE" à 

2300 re$=UPPERS (re$):FOR s=nf TD n: MN 
gar$(si=UPPER$ (gar$(s) ):NEXT 

2310 1o=LEN(re$) LP 
2320 FOR s=nf TO n LX 
2330 loi=LEN(gqar$(s)) :QP 
2340 FOR d=1 TO lol:o1$=MID$(gar$(s ;DG 
},d,10):1F oi$=re$ THEN r=s:oui=i:6 
OTO 2380 

2350 NEXT d 34 
2360 NEXT s WG 
2570 GOTO 1790 :NG 
2380 GOSUB 1470 >XH 


2590 PRINT CHR$(7)::LOCATE#2,18,1:P DE 
RINT#2, "Voulez-vous continuer la re 
cherche O/N" 





2400 a$=INKEY#:IF a$="" THEN 2400 YF 
2410 IF a$="0" OR a$="o" THEN CLS#1 RV 
:CLS#2:G0T0 2360 

2420 IF a$="N" OR a$="n" THEN CL5#1 :FG 
:5=n:60T0 2360 

2430 GOTO 2400 3MC 
2440 CLS:LOCATE 15,1:FRINT CHR$(24) EE 
ÿ"RECHERCHE D'UNE 
DEFENSE ";CHR$(24) 

2450 LOCATE 2,5: INPUT'"Quel Montant  >NJ 
recherchez-vous "ire 

2460 LOCATE 1,5:PRINT CHR$ (20) >YH 

2470 FOR s=1 TO n:1F dep(s)=re THEN ?RN 
r=5:60T0 2500 

2480 NEXT s ?WK 
2490 re=0:LOCATE 26,10:PRINT'"La Rec CF 

herche est terminee !!!":G0T0 1630 

2500 GOSUB 1470 ?XB 

2510 PRINT CHR$(7) ; :LOCATE#2,18,1:P >DY 

RINT#2, "Voulez-vous continuer la re 

cherche O/N" 

2520 a$=INKEY$:IF a$="" THEN 2520  ;2D 

2530 IF a$="0" OR a$="o" THEN CLS#1 >RB 
:CLS#2:G0T0 2480 

2540 IF a$="N" OR a$="n" THEN CLS#1 QE 
:5=n:60T0 2480 

2550 GOTD 2520 >M] 

2560 ‘------------ YF 

2570 ‘TOTAL DEPENSES >Y6 

2580 ‘-------- >YH 

2590 CLS >AF 

2600 IF n=0 THEN 4030 ?NY 


2610 LOCATE 30,10:PRINT"UN INSTANT TX 
JE CALCULE" 
2620 tdep=0:FOR s=1 TO n:tdep=tdep+ >RF 


dep{s):NEXT 

2630 LOCATE 10,10:PRINT"'Au "sdat$(n 
is" Le total de vos Depenses s'elev 
e à "{USING"##HH##E, NH F': tdep+ml 
2640 FOR t=1 TO 3000:NEXT:G0TO 150 
2650 IF ch$(r)="E" THEN ch1$="ENTRE 
TIEN" ELSE IF ch$(r)="R" THEN chi$= 
"RÉPARATION" ELSE IF ch$(r)="D" THE 
N chi$="DIVERS" 

366 RETURN 


2690 

2700 CLS 

2710 ORIGIN 84,390: DRAW 452, 0: DRAM 

452,-28:DRAN 0,-28:DRAW 0,0:0RIGIN 

88,386: DRAW 444,0: DRAM 444, -20:DRAW 

0,-20: DRAM 0,0:LOCATE 13, 2:PRINT"# 

#CONSULTATION DES 
FICHES #+" 

2720 IF n=0 THEN 4030 

2730 WINDOW#1, 1,80,7,23:PAPER#, L:P 

EN#1,0 


2740 WINDOW#2, 1,80, 25, 25:PAPER#2,0: à 


PEN#2, 1: CLS#2 

2730 LOCATE 2,7:PRINT"VOUS AVEZ UN 
TOTAL DE "sn;" FICHES EN MEMOIRE" 
2760 LOCATE 2,10:PRINT"A partir de 
quelle Fiche consulter ";CHR$(18):: 
INPUT fic:IF ficin THEN 2760 

2770 FOR s=fic TO nir=s 

2780 GOSUB 1480 


2790 PRINT CHR$(7);:LOCATE#2,32,1:P à 


RINT#2,"{Sluite  [Flin” 
2800 a$=INKEV$:IF a$="" THEN 2800 


2810 IF a$="S" OR a$="s" THEN CLS#1 : 


:CLS#2:G0T0 2840 


2820 IF a$="F" OR a$="{f" THEN s=n:6 : 


OTO 2840 
2830 GOTO 2800 
2840 NEXT 


2850 CLS#2:PRINT CHR$(7) ;:LOCATE#2, 


20,1:PRINT#2,"FIN DE LISTE  - 
UNE TOUCHE S.V.P" 
2860 CALL &BB06:G0TO 130 


2900 CLS 

2910 WINDOW#1, 1,80, 9,23:PAPERH1, 1:P 

EN#1,0 

2920 ORIGIN 112,390: DRAM 412, 0: DRAM 
412,-28:DRAW 0,-28:DRAW 0, 0:DRIGIN 
116,386:DRAH 404,0: DRAW 404,-20:DR 

AW 0,-20:DRAW 0,0:LOCATE 17,2:PRINT 
"HDERNIERE INTERV 

ENTION+##" 


HG 


BE 
TA 


:FH 
>YH 
FYJ 
:YK 
?1] 
JG 


PE 
ÿJE 


>RB 
2YK 
?1A 
?1B 
AA 
>J6 


BEM 





2940 LOCATE 2,6:PRINT"ATTENTION LA 
RECHERCHE NE S'EFFECTUE QUE SUR LA 
NATURE DE L'INTERVENTION":LOCATE 2, 
7:PRINT"OU SUR LES PIECES CHANGEES" 


Lu IF n£=0 THEN 4050 


2950 LOCATE 2,9:PRINT'"Sur quelle in 
tervention desirez-vous etre inform 
e "sCHR# (18); : INPUT re$: IF LEN(re$) 
325 THEN LOCATE 21,12:PRINT CHR$ (24 
):" LIGNE TROP LONGUE max. 25 carac 
teres ":CHR$(24):FOR t=1 TO 1500:NE 
XT:LOCATE 1,10:PRINT CHR$ (20) : GOTO 
2950 

2960 IF re$="" THEN 130 

2970 LOCATE 2,11:INPUT"Veuillez ind 
iquer le kilometrage actuel ";kac 


TE 20,11:PRINT'UN INSTANT JE CHERCH 

E DANS FICHE No " 

2990 re$=UPPER$ (re$) 

3000 lo=LEN(re$) 

3010 FOR s=n TO 1 STEP -1 

3020 1ong$=UPPERS$ (nat$(s) )}+UPPERS (p 
ie$(s)) 

3030 loi=LEN(longé$) 

3040 FOR d={ TO lol:01$=MID$(longf, 

d,10):LOCATE 56,11:PRINT CHR$(24)5s 
:CHR$ (24): IF o1$=re$ THEN r=5: trouv 

e=1:G0T0 3070 

3090 NEXT d 

3060 NEXT s:1F trouve=0 THEN LOCATE 
1,11:PRINT CHR$ (20) :LOCATE 25-(LEN 
(re$)/2),11:PRINT CHR$(24);" RECHER 

CHE L'ire$;"] NON ABOUTIE !!! ";CHR 

$(24):G0T0 3100 

3070 LOCATE 1,5:PRINT CHR$ (20) :LOCA 

TE 2,5:PRINT"La derniere interventi 

on concernant : ";CHR$(24):" "ire$: 
" "sCHR$(24):LOCATE 2,6:PRINT"date 

du ";CHR$(24)5" "idat$(r)s" ":CHR$( 

24);" et se trouve dans le fiche No 
Ma" MsCHR$(24)5rs;" "sCHR$ (24) 

3080 dif=kac-kil(r):LOCATE 2,8:PRIN 

T"Vous avez effectue ";dif;" kilome 

tres depuis cette date":dif=0 

3090 IF trouve=1 THEN trouve=0:CLS# 
1:60SUB 1510 

3100 re$="":kac=0:long$="":PRINT CH 

R$(7);:LOCATE 32,25:PRINT'UNE TOUCH 

E S.V.P":CALL &BB06:G0TO 130 





3140 CLS 
3150 ORIGIN 132,390: DRAW 368, 0: DRAW 


D 368,-28:DRAW 0,-28:DRAW 0, 0:0RIGIN 


26 


2980 LOCATE 1,6:PRINT CHR$(20):LOCA :2 


FH 


FH 


>CU 


?KK 


>KR 


LA 


?RN 


>NA 


>XH 
>XJ 
?XK 
1H 
WF 





136,386: DRAM 3460, 0:DRAW 360, -20:DR 
AW 0,-20:DRAW 0, 0:LOCATE 19,2: PRINT 
“x# CONSULTATION DES FICHES PAR OPE 
RATION #+" 

3160 IF n£=0 THEN 4030 

3170 WINDOW#1, 1,80, 7, 23:PAPERK1, 1:P 
EN#1,0 

3180 WINDOW#2, 1, 80, 25, 25: PAPER#2, 0: 
PEN#2, 1 


3190 LOCATE 2,6:PRINT'Quelles Opera 


tions voulez-vous consulter ":LOCAT 

E 44,5:PRINT"[EJntretien":LOCATE 44 

,8:PRINT"IRleparation":LOCATE 44,7: 

PRINT" [D]Jivers" 

3200 LOCATE 20,10:PRINT"Votre choix 
"a CHR$ (18): : INPUT cho$:cho$=UPFER$ 
(cho$}:1F cho$="E" OR cho$="R" OR c 

ho$="D" THEN 3210 ELSE 3200 

3210 LOCATE 1,9:PRINT CHR#(20) 


3220 FOR s=1 TO n:1F ch$(s)=cho$ TH à 


EN r=s:G60SUR 1480:G0SUR 3250 

230 NEXT 

3240 CLS#2:cho$="":r=0: PRINT CHR$(7 
); :LOCATE#2,24,1:PRINT#2,"FIN DE LI 
STE - UNE TOUCHE S.V.P':CALL &BBOb: 
GOTO 130 


3250 PRINT CHR$(7) ;:LOCATE#2,29,1:P à 


RINT#2,"[Sluite Fin" 

3260 a$=INKEY$:IF a$="" THEN 3260 
3270 IF a$="F" OR a$="f" THEN s=n:c 
ho$="":r=0:G0TO 3300 


3280 IF a$="S" OR a$="s" THEN CLS#2 3K 


:60T0 3300 
3290 GOTD 3250 
3300 RETURN 





3340 CLS 
3350 FOR s=1 TO 1{:c{s)=0:NEXT 


3360 ORIGIN 204,390: DRAW 208, 0:DRAW > 


208,-28:DRAW 0,-28:DRAW 0,0: ORIGIN 
208,386: DRAW 200,0:DRAW 200,-20:DR 
AW 0,-20:DRAW 0,0:LOCATE 28,2:PRINT 
"## GRAPHIQUE #+" 
3570 LOCATE 12,6:PRINT"CETTE OPTION 
PERMET UN CONTROLE SOUS FORME DE G 
RAPHIQUE":LOCATE 14,7:FRINT"GUR LA 
REGULARITE D'UNE INTERVENTION DE VO 
TRE CHOIX" 
3380 LOCATE 2,11:PRINT"Intervention 
concernee : ":CHR$(18) ; : INPUT ref: 
IF LEN(re$)>25 THEN GOSUB 4040:LOCA 
TE 1,12:PRINT CHR$(20):G0TD 3380 
3390 IF re$="" THEN 130 
3400 ok=0:CLS 
3410 LOCATE 29,11:PRINT"UN INSTANT 


>UM 


GA 


FF 


A 


?QX 


sv 


>P7 
>QC 
JWY 





JE RECHERCHE" 
3420 LOCATE 1,2:PRINT STRING$ (80, 15 
4); 


>FY 


3470 re$=UPPER$ (re$) PK 
3440 1o=LEN(re$) ?LV 
3450 FOR s=n TO 1 STEP -1 3RX 
3460 long$=UPPERS$ (nat$(s) )+UPPERS$(p >MZ 
ie$(s)) 
3470 loi=LEN(long$) PA 
3480 FOR d=i TO lol:o1$=MID${long$, >VX 
d,l0):1F ok=1i THEN s5=1:d=101:G0T0 
3490 ELSE IF oi$=re$ THEN ok=ok+i:d 
=1o{:G0SUR 3640 
3490 NEXT d'NEXT s 3MC 
3500 LOCATE 29,11:PRINT SPACES(40) BL 
3510 GOSUB 3610 ?XB 
3520 dra=0:0RIGIN 40,24:FDR s=1 TD 2JJ 
11:IF c(s)=0 THEN 3560 ELSE dra=INT 
{(killc(s)))-kil(c(s-1)))/630 

3530 IF draf0 THEN s=11:G0T0 3560 2] 
3540 DRAHR 56,dra:DRAUR 0,10:DRAWR  >KU 
0,-10:LOCATE (XP0S/8)+2,25-(YPOS/16 
)-3:PRINT kil(c(s)):LOCATE (XP05/8) 
+3,25-(YPOS/16)-4:PRINT'F";c (5) 
3590 dd=c(s) ?EG 
3960 NEXT 3LF 
3970 IF dd=0 THEN 3590 PT 
3980 LOCATE 17-(LEN(re$)/2),1:PRINT >2L 
"Derniere Int. "sret;" en date du " 
sdat$(dd);",Fiche No"; dd:dd=0 
3590 IF ok=0 THEN LOCATE 30,11:PRIN >AA 
T'AUCUNE DONNEE !!!" 
3600 ok=0:CALL &BB06:GDTO 130 WU 


3610 ORIGIN 36,24:DRAW 564,0: ORIGIN >NM 
40,20: DRAW 0,310:FOR »x=96 TO 600 S 

TEP 56:0RIGIN x,20:DRAW O,4:NEXT 

3620 53=0:FOR s5=12 TO 75 STEP 7:53= >NX 
53+1:LOCATE 5,25:PRINT 533 :NEXT 

3630 RETURN ?FF 
3640 FOR s2=1 TO 11:IF ok=11-52 THE >KP 
N c(s2)=5 

3650 NEXT:RETURN 
3660 ‘--------- 
3670 “CARBURANT 
3680 ‘ 

3690 CLS 
3700 ORIGIN 204,390: DRAN 208,0: DRAH >NA 
208,-28:DRAW 0,-28:DRAW 0,0:DRIGIN 
208,386: DRAW 200,0: DRAW 200,-20: DR 

AW 0,-20:DRAW O,0:LOCATE 28,2:PRINT 

"# CARBURANT ##" 

3710 LOCATE 2,4:PRINT'"Le dernier en >XV 
registrement date du ";dt$:LOCATE 2 

59: PRINT"Vous avez achete un total 
de";lit;"litre pour un montant tota 

1 de"; USING ii$;ml 

3720 LOCATE 2,10:PRINT"NOUVEL ENREG >VQ 








3730 MOST 2,13: INPUT"Date 
“sdt$sIF dt$="" THEN 37350 


st LOCATE 2? ,14: INPUT'Litres 
"li: lite lit+li 

3750 LOCATE 2,15: INPUT'Prix paye 
: 'smlisml=mitmli 


ur : "ÿCHR$(18);: INPUT toci:IF toc 
éstoc THEN 3760 


TE 1,5:PRINT CHR$ (18) 
3780 IF toci3000 THEN 3810 


MATION MOYENNE EST DE ";CHR$ (24) ; RO 

UND((1it/(toc1+300))#100,2); "Litres 
aux 100 ":;CHR$ (24) 

3800 cml=ROUND((m1/1it),2):LOCATE 2 
,21:PRINT"Vous avez achete un total 
de";lit;"litres pour un montant to 
tal de":ml:"Frs":LOCATE 2,22:PRINT" 

soit une moyenne de";cml;"Frs le li 
tre" 

3810 toc=toci 

3820 li=0:m11=0:PRINT CHR$(7); 
TE 32,25:PRINT"UNE TOUCHE S.V.P.":C 
ALL &BBO6:GOTO 130 

3930 ‘ 
3840 ‘INFORMATIONS : 





. = 1 





3860 CLS 
3870 IF n=0 OR toc=0 THEN 4050 


dep (5) :NEXT: tadep=tdep-dep (1) 

3890 ORIGIN 116,390:DRAW 408, 0: DRAN 
408,-28:DRAW 0,-28:DRAW 0, 0:0RIGIN 
120,386: DRAW 400,0:DRAW 400, -20: DR 

AW 0,-20:DRAW O,0:LOCATE 17,2:PRINT 
"# INFORMATIONS DI 

VERSES #+" 


ENT AU KILOMETRE EN DATE DU ";dt$;: 
LOCATE 3,6:PRINT"TOTAL KILOMETRAGE 

"5 toc; : PRINT" PRI 
X D'ACHAT :"; USING i$;dep(1) 

3910 ORIGIN 11,298:DRAW 610,0: DRAM 

610,-116:DRAW 0,-116:DRAW 0,0 

3920 ORIGIN 12,296:DRAW 608, 0: DRAW 

608,-112:DRAW 0,-112:DRAW 0,0:DORIGI 
N 12,248: DRAW 608,0:0RIGIN 12,272:D 
RAW 520,0:D0RIGIN 116,272: DRAW 0,-88 
ORIGIN 460,272: DRAW 0, -88 

3930 ORIGIN 180,296:DRAW 0,-112:0R1 
GIN 181,296: DRAW 0,-112:0RIGIN 284, 
272:DRAW 0,-88:0RIGIN 356,296: DRAW 

0,-112:DRIGIN 357,296: DRAW 0,-112:0 


F2 








3760 LOCATE 2,16:PRINT"Total Compte ; 


3770 LOCATE 1,4:PRINT CHR$(18) :LOCA > 


3790 LOCATE 2,19:PRINT"VOTRE CONSOM } 


:LOCA à 


3880 tdep=0:FOR 5=1 TO n:tdep=tdep+ > 


3700 LOCATE 17,4:PRINT"PRIX DE REVI 


>AX 


% 


CR 








ETn 


RIGIN 532,296: DRAW ,-112: ORIGIN 53 
3,296: DRAW 0,=112 
3940 ORIGIN 0,0: TAG:FLOT 24,290:FRI 
NT"1 ESSENCE"; :PLOT 188,290:FRI 
NT"2 AUTRES DEPENSES";:PLOT 408,2 
O:FRINT'TOTAL 1+2"; :PLOT 36,266:PRI 
NT'MONTANT "::PLOT 128,266: FRINT"Fr/ 
Km"; :PLOT 204,266: PRINT"MONTANT";:P 
LOT 300,266:PRINT"Fr/Km'": 
3950 PLOT 380,266: PRINT"MONTANT"::F 
LOT 476,266:FRINT"Pr/Em";:PLOT 548, 
287:PRINT'PRIX/KM"s:PLOT 537,269:PR 
INT'AVEC ACHAT"; : TAGOFF 
3960 LOCATE 4,12:PRINT USING i1$;ml 
:LOCATE 17,12:PRINT USING"##.##":ml 
/toc:LOCATE 25,12:PRINT USING i1$:t 
adep:LOCATE 38,12:PRINT USING"###.# 
#";tadep/toc:LOCATE 47,12:PRINT USI 
NG 11$;tadep+ml:LOCATE 60,12: PRINT 
USING"###. #4"; (tadep+ml)/toc 
3970 LOCATE 71,12:PRINT USING"###.# © 
#"; (tdep+ml)/toc 
3980 LOCATE 3,15:FRINT"Consommation : 
moyenne : "3CHR$ (24) ,ROUND({lit/to 
c)#100,2);"/100 ";CHR$ (24) 
3990 LOCATE 32,25:PRINT"UNE TOUCHE 
S.V.P':PRINT CHR$ (7) ::CALL &EBO6: 60 
T0 130 
4000 LOCATE 6,11:PRINT"Date de l'ac : 
hat. CJJ.MM. AA] :":CHR$(18);: INPUT d 
at$(n):1F LEN(dat$(n));8 OR VAL (MID 
$dat$n),4,2));12 OR VAL (MIDS$ (dat$ 
(n),4,2))€1 THEN 4000 
4010 LOCATE 6,13: INPUT"Kilometre 
:"skil(n) :LOCATE 6,15: INPUT "Mar 
que et Type :"snat$in):nat$(n)="AC 
HAT "tnat$(n):LOCATE 6,17: INPUT"Pri 
x d'achat :"s dep (n):LOCATE 6,19: 
INPUT" Garage "sgar$(n) 
4020 ch$(n)="D":RETURN 3RR 
4030 LOCATE 31,11:PRINT'MANQUE DE D ; 
ONNEES":FOR t=1 TO 2000:NEXT:GOTD 1 
30 
4040 SOUND 1,200,30,15:LOCATE 30,10 : 
:PRINT"25 CARACTERES MAXIMUM":FOR a 
= TO 2000:NEXT:RETURN 
4050 CLS:1IF ERL=710 THEN LOCATE 28, 
11:PRINT'FICHE NON TROUVEE": f$=""2F 
OR s=1 TD 1500:NEXT:RESUME 650 
4060 IF ERR=11 THEN GOSUB 4090:RESU HD 
ME 130 
4070 PRINT "ERREUR No";ERR; "Ligne"; }KQ 
ERL 
4080 ON ERROR GOTO O:END ?TX 
4090 CLS:LOCATE 23,10:PRINT"JE N'AI >TZ 
ME PAS DIVISER PAR 0":FOR T=1 TO 20 
00:NEXT:RETURN® 


AR 


AT 


3YM 


SA 
[= 
[=] 


a 
Pa 
pa) 


>Q6 


_ chassitieation perieliut 
» pareiens se Les ele 
- tiels tt formules) 


= QUITTER 





CICR 
CR. X CPC 464 


CPC 664 
CPC 6128 








(: programme n’est pas une initiation is es A LL D ee ou 
à la Jimie ; il sera utilisé par les Mine ce on Use M 
braliquans pour suppléer à vohe méncs 180 SYMEOL 180,60, 60, 60, 60, 40, 60, 252, 252 >FF 
rie Fee FUOER 190 SYMBOL 181,60,60, 60, 60, 80, 60, 0, 0 >BX 
défaillante. La table des éléments périodes 200 SVMBOL 182.83 67 3,3,3 3 . 
200 PA A A DO »Y6 
et sa composifion latine, les moles et le 210 SYMBOL 183,252, 252, 192, 192, 192,192, 192, 192 ML 
nombre d Avogadro se rappelleront à votre 220 SYMBOL 184,3,3,3,3,43,63,0,0 VE 
souvenir. Bon courage tout de même... 230 SYMBOL 165,192, 192, 192, 192, 292,252, 0,0 >HX 
240 SYMBOL 186,240, 240, 252, 292, 255, 255, 255, 255 ME 
LD CARRÉ ENERERIESEE :L& 250 SYMBOL 187,60,60,252,252, 252, 252, 252,252 >KH 
20 ‘| CHIMIE :Le | 260 SYMBOL 188,243, 243, 240, 240,240, 240,0, 0 >HC 
10 :Lc | 270 SYMEOL 189,255, 255, 60, 60, 60, 60, 63, 63 >FD 
4ÿ ‘| = 7 K- :LD 280 SYMBOL 190,252,252, 12, 12,197, 192,192, 192 ?KL 
Sù ‘(c) AOÛT 1987 LE | 290 SYMBOL 191,60, 0,60, 60, 255, 255,0, 0 >DF 
bû ‘  REYSt. 'LF | 300 SYMBOL 192,192,192, 12, 12,252, 252, 0,0 >FU 
70 CHARME LG 310 SYMBOL 245,0,0,4,6,6,6,6,6 WEB 
80 ON BREAK GOSUR 5400 >qu | 320 SYMBOL 246,0,0,6,24,48, 32,64,64 >ER 
30 MODE 2:RESTORE 570:BORDER 4: INK 0,1:INK 1,16:PAPER O FF 350 SYMBOL 247,7,5,5,109,136, 144,96,0 >C6 
:PEN 1 340 SYMBOL 248,64, 64,64, 192, 192, 128, 128, 0 >64 
160 HINDOH #1,5,26,8,20:FAPER #1,1:PEN #1.0:CLS#1 QA 390 CCS=CHRS (175) +CHR$ (176) +CHR$ (8) +CHR$ (8) +CHR$S (10)+CH DVF 
DO EEE RC R$(177)+CHR$ 1178) 
120 SYMEOL AFTER 175 iPZ 360 HH$=CHR$ (179)+CHR$ (180) +CHR$ (8)+CHRS (B)+CHRS (10)+CH VE 
130 SYMBOL 175,15,15,60,60, 240,240, 240,240 >HA R$(181)+CHR$ (181) 
140 SYMBOL 176,240, 240, 60, 45,0, 0,0,0 ?BH 370 II$=CHRS (182) +CHR$ (183) +CHR$ (B)+CHRS (8) +CHRS (10) +CH >VM 
150 SYMEOL 177,240, 240, 60, 60,15, 15, 0,0 DR @ R$(184)+CHR$ (185) 


EX 


sd) 


380 MMS=CHRS (186) +CHRS (187) 4CHRS (8) 4CHRS (2) +CHRS (10)4CH 
RS (188) +CHRS (181) 

290 EES=CHRS (189) +CHR$ (190) CHR$ (8) +CHRS (8) +CHR$ (10) +CH 
R$(191)++CHR$ 192) 

400 ANS=CHRS (245) +CHR$ (246) 4CHR$ (8) +CHRS (8) +CHRS (10) +CH 
R$ (247) +CHR$ (248) | 

410 LOCATE 31,3:PRINT CC$:LOCATE 34,3:PRINT HH$:LOCATE 

37,3 PRINT IIS:LOCATE 40,3:PRINT MM$:LOCATE 43,3: PRINT 

TIS:LOCATE 46,3:FRINT EE$ 

420 LOCATE 1,1:PRINT STRINGS (80, CHR$ (218) ) 

430 LOCATE 1,2:PRINT STRINGS 80, CHR$ 1232) } 

440 LOCATE 1,6:PRINT STRINGS (80, CHR$ (216) } 

450 LOCATE 1,5:PRINT STRINGS (80, CHR$ (232) ) 

460 LOCATE #1.7,4:PRINT#I "CHIMIE" 

470 LOCATE #1,7.5:PRINT#1," ù 

480 LOCATE #1,6,10:PRINT#I."{c) ADUT 1987" 

490 LOCATE #1,6,12:PRINT#1, "Stephane REY" 

500 LOCATE #1,1,1:FO0R i=1 TO 13:PRINT#1,CHR$ (295) :NEXT 


310 LOCATE 27,8:PRINT CHR#205) :LOCATE 27,9:PRINT CHR$( 


209) 
920 ORIGIN 215,65: DRAH 0,200:0RIGIN 214,65: DRAK 0,200 


330 LOCATE S,21:PRINT CHR$ (205) :0RIGIN 36,65: DRAW 175,0 


ORIGIN 40,63: DRAU 175,û 

040 ORIGIN 215,62:DRAW -12,25: 
Jo0 ‘### MENU DESCENDANT ### 
360 GOSUE 950 

970 DATA "- INSTRUCTIONS","- Classification periodique 


des elements","- Exercices sur les elements" 


ORIGIN 215,64: DRAW -12,25 


380 DATA "- Calculs (et Formules) ","- QUITTER " 
900 FOR I=1 TO S:READ X$(I):NEXT:H=1 
600 PEN L:LOCATE 1,24:PRINT CHR$(24j:" Choix : 
= SPACE Validation => ENTER 
";CHR$ (24) 


&iü FOR I1=1 TO S:LOCATE 34,8+I42:PRINT X${I):NEXT 

620 LOCATE 34,8+#h#2:PRINT CHR$(24)5" "sX$(H)s3" ":CHR$ (2 
4) 

b3SQ R$="":MHILE R$="":R$=INKEY $: WEND 

640 GOSUE 1176 

650 IF R$=CHR$(13) THEN 690 

Gb V=H:H=H+i: IF H=b THEN H=i 

670 LOCATE 34,8+V42: PRINT " sx$(V)s" " 

680 GOTO 620 

690 ON H GOTO 710,2250,2770,4190, 3080 

700 ‘Het INSTRUCTIONS #44 

710 CLS:H$="## INSTRUCTIONS ##":Y=3:M=60:GO0SUB 4110:605 
UB 1100:G0SUB 1000 

720 LOCATE 13,7:PRINT" 
s caracteristiques de” 
730 GOSUB 1150:LOCATE 13,8:FRINT'certains elements chim 
iques ? Vous souhaitez connaitre" 

740 GOSUB 1150:LOCATE 13,9:PRINT"le nombre de moles con 
tenues dans un corps où meme le" 

750 GOSUB 1150:LOCATE 13,10: PRINT"volume d'un gaz et d' 
autres encore ? Alors CHIMIE " 

760 GOSUB 1150:LOCATE 13,11:PRINT"pourra peut étre vous 
aidez a resoudre ses problemes." 


Vous avez du mal à assimiler le 


VE 


SW 


?VR 


+WE 
FE 
#1] 
?CR 
3RH 
1 
BP 
WP 
>RG 
>KL 


>UR 


id es de calculs, ainsi que les ii" 


780 GOSUE 115G:LOCATE 13,14: PRINT'elements de la classi 


n 


fication periodique { et leurs 
HIMIE vous aidera a resoudre des" 

800 GOSUR 1150:LOCATE 15,16:FRINT'exercices a ji aide 
des formules comprises dans le 

B15 GOSUB {1SG:LOCATE 13,17:PRINT'"programme et à reyis 
r ou meme à apprendre Îles ele-" 

820 GOSUR 1130:LOCATE 13,18:FRINT'"ments chimiques grac 
a de petits exercices compris" 

B3û GOSUE 1150: LOCATE 13,15:PRINT'"'eux 
gramme ." 

840 GOSUE tISO:LOCATE 21,21:PRINT" Encore BONNE CHANCE 
et BON TRAVAIL 1!" 

850 LOCATE 1,24:PRINT CHA$(24):" 

£ & € 4 TAPER UNE TOUCHE à à 5 à 

“CHR (24) : CALL RERO: RESTORE 570:G0SUB 117%:G0T0 90 

BG ‘ete liste des elements K###x#4 

870 HHILE INKEYS<>"":NEND 
880 RESTORE 1200 

890 RESTORE 120G:CLS:MODE 1:FO0R n=1 TO 1GS:READ A$,E$, 
$,D$,E$:CLS:GOSUE 1100 
| 900 Hg="# CHIMIE #":Y=3:M=40:GOSUB 4110:60SUB 1050:L0C 
TE 7,8:PRINT "Nom : "sAS:LOCATE 7,10: PRINT " Symb 
le : ";5E$ 
910 LOCATE 7,12:PRINT" 
INT" Foids atom. : 
: "ES 

20 LOCATE 1,23:FRINT CHR$(24):" COPY: =: MENU 
SPACE: => SUITE M":CHR$(24);:IF INKEY(S)<:-{ THEN GOTO 
250 ELSE CALL SBBIB:NEXT 
950 RUN 2270 

QAÙ HR cadres HE 

950 ORIGIN 0,0:MOVE 257,78:DRAN 237,280: DRAW 610. 280 
960 DRAW 610,78: DRAW 237,7 
970 MOVE 241,82:DRAW 241,276: DRAW 606,276 

960 DRAW 606,82: DRAH 241,82 

990 RETURN 

1600 ORIGIN 0,0:MOVE 65,52:DRAW 65,320: DRAN 558,320 
1910 DRAW 556,52: DRAW 65,52 

1020 MOVE 69,56:DRAW 69,316: DRAH 554,316 

1650 DRAN 554,56: DRAW 69,56 

1040 RETURN 

1950 ORIGIN 0,0:MOVE 40,135:DRAN 40,300: DRAW 610, Sûû 
1060 DRAW 610,135:DRAH 40,135 

1070 MOVE 44,139: DRAW 44,296: DRAN 606,296 

1080 DRAW éG6, 139:DRAW 44,139 

1090 RETURN 

1100 ORIGIN G,0:MOVE G,0:DRAW 0,398: DRAW 639,398 
1110 DRAW 659,0: DRAW 0,0 

1120 MOVE 4,4:DRAW 4,394: DRAW 635,394 

1130 DRAH 635,4: DRAW 4,4 

1140 RETURN 

1150 HEIN 

1160 FOR t=1 TO 1000:NEXT: RETURN 


aussi dans ce 5" 


No atom. : ":C$:LOCATE 7,14:F 
"sD$:LOCATE 7,16:PRINT" Famille 





770 GOSUB 1150:LOCATE 13,13:PRINT" Regroupant & foraul :PA . 170 CHERE SON HER 


2 





e : 


e : 


C ÿE 


i 5; 


m0 
| *:& 


790 GOSUE 1150:LOCATE 13,15:PRINT"caracteristiaues :, C 


A :1Y 


0 


RE 


VE 



































1186 SOUND 1,190,16, 10: SGUND 1,250,18, 2: RETURN GK 1790 DATA NECDYME Nd. 62 2 14442, LANTHAR “DES LA 
1190 rékéeentts DATAS #kr#ktet >YD 17860 DATA HEON. Ne, 12 à ï5 
1266 DATA ACTINIUM, âc. 89,227, ACTINIDES “AV 1775 DÉTA NEFTUNIUM, Ke.9 ACTINITES 
1210 DATA ALUMINIUM, 41. 17,27, METAUX ED à NICHEL Ni. 28.5 7 7 HE TAUX Di 
1220 DATA ÉMERICIUM, Am, 95. 43, ACTINIDES 23H NIDEIUM, vi 4:.52,5.METAUX EF 
1220 DATA ANT IMOINE. St, 91.121.868, METAL HE À NOBELIUM, Ho N AOZ 25, SCTINIDES ii 
1245 DATA ARGENT, g,47,107.9,METAUX D 1810 DéTé OR, Au, 79 pe + 
1250 DATA ARGON, Ar, 15,39.9,GA7 #1 if CEMIUM, Gs, 76, 190,7, METAUX ET 
1265 DATA ARSENIC, As, 33, 74.9, METALLOIDES #K6 ATA OXYGENE,C,E.1£,METALLOIDEZ GF 
1270 DATA ASTATE, Ât,B5, 210, METALLOIDES :HG à PALLADIUM, Fd, 46, 106.4,METAUX HC 
1280 DATA AZOTE,N, 7,14, METALLOIDES :Dh TA FHOSPHORE.F, 15,71. METALLOITES #kI 
1290 DATA BARIUM, Ba, 56, 137,3, METAUX :CQ PLATINE, Ot, 78,199. 1, METAL Fa 
1550 DATA BERKELIUM,Bk,97,249, ACTINIDES 310 DATA FLOME,Fb,83,207,2,MHETAUX CE 
1310 DATA BERYLLIUM, Be, 4.9, METAUX :DG PLUTONIUM, Eu, 54,245, ACT INIDES Ki 
1320 DATA BISMUTH, Bi,83,209,METAUX ‘DZ 850 DATA FOLONIUM, Fo, 84,205, METAUX FA 
1336 DATA BORE,B,5, 10.8, METALLOIDES ?EF 1960 DATA FOTASSIUM,K, 15,39. 1,METAUX :FT 
1340 DATA BROME, Br, 25,709.9,METALLOIDES -HX 1910 DATA FRASEODYME,Fr,99, 145,5, LANTHARIDES 26 
1350 DATA CADMIUM, Cd,46, 117,4, METAUX EL 1920 DATA PROMETHIUM, Fm, ôi, 145, LANTHANTEES CH 
1560 DATA CAESIUM,Cs,95, 132,9, METAUX FH 1930 DATA PROTACTINIUM, Fa, 91,231, ACTINICES KT 
1370 DATA CALCIUM, Ca, 25,45, 1,METAUX #DL 1945 DATA RADIUM,Ra, 98,226, 1 ,METAUX EF 
1586 CATA CALIFORNIUM,C+,58,251,ACTINIDES LE 1950 DATA RADON, Kn,8 ,222,6A2 “#L 
1390 DATA CARBONE, C. 6, 12, METALLOIDES 3FP 1560 DATA RHENIUM, Fe, 75, 186.2, METAUX sF# 
1490 DATA CERIUM, Ce, 58, 140. 1,LANTHANIDES KP 1975 DATA RHODIUM,Rh,45,162,9,METAUX FJ 
1410 DATA CHLORE, C1,17,35,5,METALLOIDES :JN 1986 DATA RUBIDIUM,Rb,17,85.5,METAUX FN 
1420 DATA CHROME, Cr,24,52,METAUX BF 1970 DATA RUTHENIUM, Ru, 44,101. !1,METAUX “HA 
1430 DATA COBALT, Co, 27,58. 9,METAUX :D6 2000 DATA SAMARIUM, 5m, 82, 150.4, LANTHANIDES :ME 
1440 DATA CUIVRE, Cu. 29,63.5,METAUX DE 2016 DATA SCANDIUM,Gc,21,45,METAUX +DF 
1450 DATA CURIUM, Cm, 96, 247, ACTINIDES *FG 2025 DATA SELENIUM, 5e, 74, 79,METALLOIDES EE 
1465 DATA DYSPROSIUM, Dy, 66, 142,5 ,LANTHANIDES ‘Eu 2NIG DATA SILICIUM.S1,14.29,1,METALLOIDES LT 
1470 DATA EINSTEINIUM. Es, 96,254, ACTINICES "NJ 2046 DATA SODIUM, Na, 11,27, METAUX Fi 
1480 DATA ERBIUM,Er, 68, 167,3, LANTHANIDES -ÈE 2950 DATA STRONTIUM,Sr,26,87.6,METAUX ‘HY 
1495 DATA ETAIN, Sn. 9û,116.7,METAUX C6 2066 DATA SOUFRE, S, 16,32, 1 ,METALLOIDES :HH 
1500 DATA EUROPIUM,Eu, 63, 152, LANTHANIDES LP 2070 DATA TANTALE, Ta,73 , 180. 9, METAUX FL 
1516 DATA FER,Fe,26,55,6,METAUX 7! 2080 DATA TECHNETIUM, Te, 43,99, METAUX 6F 
1520 DATA FERMIUM, Fm, 100,235, ACTINIDES 3H 2090 DATA TELLURIUM, Te, 52,127,6, METALLOIDES 2FF 
530 DATA FEUOR,F,S,19,METALLOIDES LG 2100 DATA Re 9 LANTHANIDES LV 
ea DATA FRANCIUM, Fr,67,223,METAUX EJ 21i9 DATA THALLIUM,T1,81,204,4,METAUX :GJ 
3% DATA GADOLINIUM, Gd, 84,157.3,LANTHANIDES PE 2125 DATA THORIUM, Th,90,232, ACT INIDES :B 
qu DATA GALLIUM, Ga, 31,69. 7, METAUX ET 2130 DATA THULIUM, Tm,69,168.9,LANTHANIDES LH 
1570 DATA GERMANIUM, Ge, 32,72. 6, METALX ‘4 2140 DATA TITANE, Ti, 22, 47,9 METAUX DC 
1589 DATA HAFNIUM,Hf.72,179,5,METAUX :FF 2150 DATA TUNGSTENE, M, 74,183.9,METAUX #62 
1595 DATA HELIUM, He, 2,4, GA1 ND 2165 DATA URANIUM,U, 92,238, ACTINIDES FY 
1800 DATA HOLMIUM, Ho, 67, 164,9, LANTHANIDES LC 2170 DATA VANADIUM,V,73, 50,9, METAUX #EJ 
1610 DATA HYDROGENE, H, 1, 1, GAZ YF 2180 DATA XENON, Ye,54,131,3,GAZ sl 
1620 DATA INDIUM, In,49,114,8,METAUX *EJ 2190 DATA YTTERBIUM, Yh,76,173, LANTHANIDES :ME 
ië3û DATA IODE, 1,53, 126.9, METALLOIDES FX 2200 DATA YTTRIUM, Y,39,88. 9,METAUX DH 
1640 DATA IRIDIUM, Ir,77,192,2,METAUX FF 2210 DATA ZINC, 2n,30,65. 4, METAUX ET 
1650 DATA KRYPTON, Er, 36,83, 8. GAZ ET 2220 DATA ZIRCONIUM, 2r,40,91,2,METAUX #6Y 
1ëti DATA LANTHANUM, La, 37, 148.9, LANTHANIDES NE 2230 END YF 
1670 DATA LAWRENCIUM, Lin, 103,257, ACTINIDES #NE 2RAO ARIANE :YÀ 
1680 DATA LITHIUM,Li,5,6.9,METAUX CH 2250 ‘#xk#x CLAGGIFICATION (MENU) +### #YB 
1690 DATA LUTETIUM,Lu, 71,175, LANTHANIDES LG 2260 HHILE INÉEY$<i"":WEND #VR 
1700 DATA MAGNESIUM, Ma, 12,24, 3,METAUX :6R 2270 MODE 1:CLS:GOSUB 1100:H$="x CLASSIFICATION FERIODI >NQ 
1716 DATA MANGANESE, Mn, 25,54, 9,METAUX GP QUE +":Y=3:M=40:GOSUR 4110 
1720 DATA MENDELEVIUM, Md, 101,256, ACTINIDES >MQ 2280 H$="# DES ELEMENTS *":Y=5:M=40:GOSUR 4110 PJ 
1730 DATA MERCURE, Hg,80,200.6,METAUX FE | 2290 LOCATE 6,9:PRINT'A- Liste des elements." >UQ 
1740 DATA MOLYBDENE, Mo, 42,95. 9,METAUX 60 2300 LOCATE 6,11:PRINT"E- Recherche par le NOM." #YC 


30 


2315 LOCATE 4, 13:PRINT"C- Recherche par ie Symbole.” 

2326 LOCATE 6,15:FRINT"T- Recherche par le No atomique. 

2330 LOCÂTE 6,1i7:PRINT'E- Retour au menu." 

25464 LOCATE 1,23: PRINT CHR&I54):" Hé Taper votre : 
choix "a CHR$ (24) 

2350 2$=INEEYS 

2360 IF 2$="A" OR z$="a" THEN GOSUE 1170:6070 86û 

2970 IF 2$="E" OR 2$="b" THEN GOSUB 1170:G0T0 2420 

2389 IF 2$="C" OR z$="c" THEN GOSUB 1170:G0T0 254û 

2390 IF 24="D" OR 2$="d" THEN GOSUE 1170:G070 264û 

2400 IF 2$="E" OR 2$="e" THEN GOSUE 1176: G0OT6 55 

2410 GOTO 255û 

es “##kt recherche par le NOM #44 
430 WHILE INFEY$£:"":WEND 

| 2430 RESTORE 1200:MODE 1:CLS:G0SUB 1100: Hé="+ Recherch N 

e par NOM #":Y=3:M=40: GOSUE 411û 

2450 LOCATE 7,8: INPUT"NOM de 1 ''element : ",R$ 

2460 R$=UPPERS RS): FOR R=i TO {OT:READ A$.Ht,C$,D$,E$ 

2470 IF R$=A$ THEN 2480 ELSE 2495 

2480 GOSUE 2730:G0T0 2510 

2490 NEXT 

2300 GOSUR 2526 

2910 LOCATE 1,23:PRINT CHR$i24)s" € TAFER UNE 


TOUCHE 55 "'s CHR$ (24) 

2520 CALL &BBO6:GOSUB 1170: G0T0 2250 

2530 H$="DESOLE, MAIS NON REPERTORIE... 

B 4110:FOR H=1 TO SOG:NEÏT: RETURN 

2540 ‘#k## recherche par le SYMBOLE +##4 

2550 HHILE INHEY$<:"": NEND 

2360 RESTORE 1200:MODE 1:CLS:GOSUB 1 
par Symbole *":Y=3:M=4C:GOSUE 4110 
2376 LOCATE 5,8: INPUT"Symbole de l'element : ",R$ 

2589 FOR R=1 TO 103:READ A$,H£,C$,D$,E# 

2590 IF R$=B$ THEN 2606 ELSE 2610 

2600 GOSUB 27:30:6070 2635 

2610 NEXT 

2b20 GOSUB 2530 

2630 GOTO 2510 

2640 ‘#### recherche par le No ATOMIQUE +*### 

2650 RESTORE 1200:MODE 1:CLS:GO0SUE 1100:H$="# Recherche > 
par No ATOMIQUE *":Y=5:M=40:G0SUB 4110 

2660 LOCATE 5,8: INPUT"No ATOMIQUE de l'element : ",R$ 

2670 R$=UPPERS (RS): FOR R=1 TO 103:READ A$,B$,C$,D$,E$ 

2680 IF R$=C$ THEN 2690 ELSE 270û 

2690 GOSUB 2730:607T0 2720 

2700 NEXT 

2710 GOSUB 253 

2720 GOTO 2510 

2730 ‘HIHI 

2740 CLS:MODE 1:60SUB 1100:H$="# CHIMIE #":V=3 

UR 4110:G60SUB 1050:LOCATE 7,8:PRINT" 

E 7,10: PRINT " SYMBOLE : ";E$ 

2750 LOCATE 7,12:PRINT" No atom. : 

RINT" Poids atom. : ";D$:LOCATE 7,16:PRINT" 
: "ES 

2760 RETURN 


:M=40:605 
NOM : ";A$:LOCAT 


Famille 


av=i7:M=40:G0SU :Y 


100: H$="# Recherche : 


"sC$&:LOCATE 7,14:P à 


ER 
VD 
YF 
?TP 
?LA 
?XC 
>MG 
?YE 
>RD 








PTT ARR AE EE 
2780 ‘ EXERCICES SUR LES ELEMENTS 
790 REED 


2890 MODE 1:CLS:GOSUB 1100:H$="Exercices sur les elenen .E 


ts": Y=4:M=4G: GOSUE 4116 

2810 LOCATE 6,8: PRINT'"A- Trouver le NOM." 

2829 LOCATE 6,10: FRINT'E- Trouver je SYMBOLE," 

2839 LOCATE &,12:PRINT"C- Trouver le No ATOMIQUE," 
2845 LOCATE 6,14:PRINT"D- Trouver le POIDS ATOMIQUE." 
2850 LOCATE 6,6: PRINT'E- Trouver 1a FAMILLE." 

28ëfû LOCATE 6,18: PRINT"F- RE au MENU" 
2875 LOCATE 1,23:PRINT CHR$ (24): " sé 
e choix 55 FsCHR$ (24) 

2880 Z$=INKEY# 
2890 IF 2$="A" OR Z$="a" THEN GOSUB 1170:G60T0 3270 
2900 IF 1$="E" OR Z$="b" THEN GOSUB 1170:G0T0 3450 
2916 IF 2$="C" OR 2$="c" THEN GOSUE i170:G07T0 357û 
2929 IF 2$="D" OR Z$="d" THEN GOSUB 1172: G0T0 3740 
2950 IF 1$="E" OR 2$="e" THEN GOSUE 1170:G0T0 3910 
2946 IF 24="F" OR 1$="f" THEN GOSUR 1170:G6070 90 
2950 GOTO 2880 

2960 ‘+k## dessin du tableau lexercice) #4##+4 
2970 GOSUB 1100:LOCATE 34,25:FRINT CHR$(24); 
No “;G;CHR$ (24) 


pal 


pal 


" QUESTION 


Taper votes à 





2986 RESTORE 1200:FOR i=1 TO X:READ A$,E$,C$,D$,E#:NEXT >HM 


1:C=C+i 
2990 ORIGIN 62,25: DRAM 0,248: ORIGIN 63,25: DRAN 0,348 
3606 ORIGIN 62,25:DRAH 510,0: ORIGIN 185,25: DRAN 0, 148:0 : 
RIGIN 184,25: DRAN 0,348 
3010 ORIGIN 262,25:DRAM 0, 348:0RIGIN 342,25: DRAW 0,348 
3020 ORIGIN 446,25: DRAN 0,348: 0RIGIN 572,25: DRAW 0,348: 
DRIGIN 573,25:DRAH 0,348 
30150 ORIGIN 62,342: DRAW 510,0:0RIGIN 62,375: DRAW 515,0 
3040 LOCATE 29,1:PRINT CHR$(24);"4ex CHIMIE #4" 
;CHR$ (24) 
3080 LOCATE 15,3: FRINT'NOM":LOCATE 25,3: PRINT"SYMEOLE" 
3040 LOCATE 35,3:FRINT"No Atom. ":LOCATE 45,3:PRINT'"Poid 
5 Atom. ":LOCATE 61,3: FRINT'FAMILLE" 
3075 RETURN 
3090 ‘x### Sortie du programme ###4# 


309 CLS:MODE 1:GO0SUB 1100:H$="44 CHIMIE #4": Y=3:M=40:G ÿE 


OSUB 4110 


31060 LOCATE 4,10:PRINT CHR$ (142) ;STRINGS (32,171); CHR (1 K 


41):LOCATE 4,{1:PRINT CHR$!133):" Confirmez-vaus votre 
decision ":CHR$(138) 

31106 LOCATE 4,12:PRINT CHR$ (133): STRINGS (32,128): CHR$ (1 
38) :LOCATE 4,13:PRINT CHR$(135):" de quitter le program 
me ?({O/N) ":CHR$(118) 


3120 LOCATE 4,14:PRINT CHR$ 139): STRINGS (32,140): CHR#(1 à 


35: 

3130 A$=INKEYS 

3140 IF A$="O" OR Â$="o" THEN 3170 
3150 IF A$="H" CR A$="n" THEN 90 
3160 GOT 3130 


#VT 


:CR 


:XB 
#ÆE 


*HC 


ÿET 
HN 


ME 
DA 
>Wu 
ME 


3170 CLS:LOCATE 5,11:PRINT CHR$ (142) : STRINGS (30,131); CH >UG 


R$(141):LOCATE 5,12: PRINT CHR# (133); STRINGS (30, 128) ; CHR 
$(138) 





3180 LOCATE 5,13:PRINT CHRS (133) ; STRINGS (30, 128) :CHR$ C1 DJ 
38) 

3190 LOCATE 5,14: PRINT CHRS (133) ;STRINGS (30, 128) : CHRS(1 MR 
38) :LOCATE 5,15:PRINT CHRS(137) : STRINGS (30, 140) ; CHRS (1 

34) 

3200 LOCATE 8, 13:PRINT"AUREVOIR ET, ":FOR 1=1 TO SO0:NEX >DT 
T:LOCATE 20,13:PRINT" À BIENTOT 1..." 

3210 FOR H=1 TO 2000:NEXT TE 
3220 INK 0,1: INK 1,24: MODE 1:BORDER 1:PAPER O:PEN 1 :EN VX 
D 


3230 ‘444444 Trouver NOM ###4#44 >YA 
3240 WHILE INKEY$<"":WEND :VQ 
250 CLS:MODE 2:n=103: SC=0: C=3 VF 
3260 FOR Q=1 TO 11:IF G=11 THEN 4070 AG 
3270 RANDOMIZE TIME: X=INT (RND#n)+i >ED 
3280 X(Q)=X >kF 
3290 FOR J=1 TO Q-1 :MG 
3300 IF X(Q)=X(J) THEN 3270 UD 
3310 NEXT J 3VD 
3:20 GOSUR 2980 3XH 


3330 C=C+1:LOCATE 27,C:PRINT R$:LOCATE 37,C:PRINT C$:LO EG 
CATE 47,C:PRINT D$:LOCATE 59,C:PRINT E$ 

3340 LOCATE 10,C:LINE INPUT W$:W$=UPPERS (4) ?NF 
3350 IF W$="" OR W$ <> A$ THEN GOTO 5360 ELSE GOT" 3370 :TT 
3360 LOCATE 10,C:PRINT SFACES$ (13) :LOCATE 10,C:F JR m=200 BF 
TO 1 STEP -15:SOUND 1,m,1,15:NEXT m:PRINT A$:G0TO 3380 
3370 FOR m=1 TO 200 STEP 10:SOUND 1,m,1,15:NEXT m:5C=5C >AH 
+ 


3380 NEXT >LF 
3390 END ID 
3400 ‘#+####+ Trouver SYMBOLE *#+##4#4 #XE 
3410 WHILE INKEY$<2"":HEND NP 
3420 CLS:MODE 2:n=103:SC=0:C=3 PE 
3430 FOR Q=1 TO 11:1F Q=11 THEN 4070 AF 
3440 RANDOMIZE TIME: X=INT (RNDæn) +1 ?EC 
3450 X(Q)=X 3XE 
3460 FOR J=1 TO Q-1 2MF 
3470 IF X(Q)=X(J) THEN 3440 LE 
3480 NEXT J >WB 
3490 GOSUR 2960 YF 


3500 C=C+1:LOCATE 10,C:PRINT A$:LOCATE 37,C:PRINT C$:LO ?DE 
CATE 47,C:PRINT D$:LOCATE 59,C:PRINT E$ 

3510 LOCATE 27,C:LINE INPUT W$ 2YK 
3520 IF W$="" OR W$ © B$ THEN GOTO 3530 ELSE G0TO 3540 >TQ 
3530 LOCATE 27,C:PRINT SPACES (5) :LOCATE 27,C:FOR m=200 AQ 
TD 1 STEP -10:SOUND 1,m,1,15:NEXT @:PRINT B$:G0T0 3550 

3340 FOR æ=1 TO 200 STEP 10:SOUND 1,m,1,15:NEXT m:SC=SC >AG 
+1 


3550 NEXT LE 
3560 END ?1C 
3570 ‘#####4 Trouver No aton. #####4 >YH 
3580 WHILE INKEY$<)"":WEND >VY 
3590 CLS:MODE 2:n=103:SC=0:C=3 >YN 
3600 FOR Q=1 TO 11:1F Q=11 THEN 4070 AE 
3610 RANDOMIZE TIME: X=INT (RND#n) +1 )EB 
3620 X(Q)=X )XD 


3630 FOR J=1 TO Q-1 ?ME 


3640 IF X(Q)=X(J) THEN 3610 UJ 
3650 NEXT J >WA 
3660 GOSUB 2960 VE 


3670 C=C+i:LOCATE 10,C:PRINT A$:LOCATE 27,C:PRINT B$:LO EC 
CATE 47,C:PRINT D$:LOCATE 59,C:PRINT E$ 

3680 LOCATE 37,C:LINE INPUT W$ VV 
3690 IF W$="" OR W$ €: C$ THEN GOTO 3700 ELSE GOTO 3710 :TY 
3700 LOCATE 37,C:PRINT SPACE$ (5) :LOCATE 37,C:FDR m=200 AR 
TO 1 STEF -10:S0UND 1,m,1,15:NEXT m:PRINT C$:G0T0 3720 

371G FOR m=1 TO 200 STEP 10:SOUND 1,m.1,19:NEXT m:SC=6C >AF 
+i 


3720 NEXT >LD 
3750 END }2 

3740 ‘#kk#t4 Trouver POIDS atom. *##+##4 ?YG 
3790 WHILE INKEY$<>"":WEND 3VX 
3760 CLS:MODE 2:n=103:SC=0:C=3 >YM 
3770 FOR G=1 TO 11:1F GQ=11 THEN 4070 AN 
3780 RANDOMIZE TIME: X=INT (RND#n) +1 }EK 
37906 X(Q)=X àYB 
3800 FOR J=i TO G-1 >MD 
3810 IF X(Q)=X(J) THEN 3780 >UR 
3820 NEXT J ?VK 
3830 GOSUR 2940 >YD 


3840 C=C+1:LOCATE 10,C:PRINT A$:LOCATE 27,C:PRINT B$:LO >DH 
CATE 37,C:PRINT C$:LOCATE 59,C:PRINT E$ 

3850 LOCATE 47,C:LINE INPUT W$ ?YV 
3860 IF W$="" OR W$ <> D$ THEN GOTO 3870 ELSE GOTO 3880 :TQ 
3870 LOCATE 47,C:PRINT SPACES(9):LOCATE 47,C:FOR m=200 AR 
TO 1 STEP -10:SOUND 1,m,1,15:NEXT m:PRINT D$:60TD 3890 

3880 FOR m=1 TO 200 STEP 10:SOUND f,m,1,15:NEXT m:SC=5C >AP 


3890 NEXT >MB 
3900 END >1A 
3910 ‘###### Trouver FAMILLE ####4#4 3YF 
3920 CLS:MODE 2:n=103:SC=0:C=3 PA LA 
3930 FOR Q=1 TO 11:1F Q=11 THEN 4070 >AL 
3940 RANDOMIZE TIME: X=INT (RNDan) +1 EH 
3950 X(Q)=X . PA LS 
3960 FOR J=1 TO Q-1 >ML 
3970 IF X(Q)=X(J) THEN 3940 ;UX 
3980 NEXT J >W6 
3990 GOSUB 2960 }ZA 


4000 C=C+1:LOCATE 10,C:PRINT AS:LOCATE 27,C:PRINT B$:LO >DR 

CATE 37,C:PRINT C$:LOCATE 47,C:PRINT D$ 

4010 LOCATE 58,C:LINE INPUT W$:W$=UPPERS (W$) NN 

4020 IF W$="" DR W$ <> E$ THEN GOTO 4030 ELSE GOTO 4040 >TF 

4030 LOCATE 58,C:PRINT SPACE$(12):LOCATE 58,C:FOR m=200 >BU 
TO 1 STEP -10:S0UND 1,@,1,15:NEXT m:PRINT E$:G0TD 4050 


4040 FOR m=1 TO 200 STEP 10:SOUND 1,m,1,15:NEXT m:GC=6C >AC 


4050 NEXT )LA 
4060 END 3 
4070 ‘######t# RESULTATS EXERCICES ####HH4Ht4 >YD 


4080 CLS:MODE 1:60SUB 1100:H$="# CHIMIE #":Y=3:M=40:605 >DV 
UB 4110:H$=" "sY=12:M=40:GOSUB 4110:L 








OCATE 12,12:PRINT "SCORE : "3SC;" / 10" 


4090 LOCATE 1,23:PRINT CHR$(24);" &£ Taper une PE 
touche >} "3 CHR$ (24) 

4100 CALL &BBO6:60TO 2770 ?TY 
4110 ‘#xkx+ CADRES DES TITRES #### #XJ 
4120 X=(M-LEN(H$) )/2-2 >QD 
4130 LE=LEN(H$) ?BD 


4140 LOCATE X,Y-1:PRINT CHR$(150) ; STRINGS (LE+2, 154) ;CHR HT 
$(156) 

4150 LOCATE X,Y:PRINT CHR$(149)5;" ":H$s" ":CHR$(149) >VE 
4160 LOCATE X,Y+1:PRINT CHR$ (147) ; STRINGS (LE+2, 154) ; CHR >HH 
$(153) 

4170 RETURN FF 
4180 ‘##k#t Calculs (et foraules) +444 YF 
4190 MODE 1:CLS:GO0SUB 1100:H$="Calculs (et formules)":Y >G6D 
=3:M=40:GOSUB 4110 


4200 LOCATE 5,6:PRINT"A- Masse molaire d'un corps." ED 
4210 LOCATE 5,8:PRINT"B- Volume d'un gaz." >0F 
4220 LOCATE 5,10:PRINT"C- Nombre de particules d'un cor >TV 
ps." 

4230 LOCATE 5,12:PRINT"D- Masse d'un corps." }UL 
4240 LOCATE 5,14:PRINT"E- Volume molaire d'un gaz." EC 
4250 LOCATE 5,16:PRINT"F- Nombre de noles d'un corps." JF 
4260 LOCATE 5,18:PRINT"G- Legende. " >F1 
4270 LOCATE 5,20:PRINT"H- Retour au menu principal," >GA 
4280 LOCATE 1,23:PRINT CHR$(24);" &{ Taper votre >QH 

choix "3 CHR$ (24) 

4290 a$=INKEY$ ?WK 
4300 IF a$="a" OR a$="A" THEN GOSUB 1180:G0T0 4390 >PT 
4310 IF a$="b" OR a$="B" THEN GOSUB 1180:G0T0 4510 >PP 
4320 IF a$="c" OR a$="C" THEN GOSUB 1180:G0T0 4630 >F4 
4330 IF a$="d" OR a$="D" THEN GOSUB 1180:G0T0 4760 >PD 
4340 IF a$="e" OR a$="E" THEN GOSUR 1180:G0T0 4870 >QA 
4350 IF a$="{f" OR a$="F" THEN GOSUB 1180:G0T0 4990 06 
4360 IF a$="g" OR a$="G" THEN GOSUB 1180:G0T0 5290 QD 
4370 IF a$="h" OR a$="H" THEN GOSUB 1180:G0T0 90 NE 
4380 GOTD 4290 ?NH 
4390 ‘### Masse nolaire d'un corps ### ?Y] 
4400 WHILE INKEY$<}"":WEND >VP 
4410 MODE 1:CLS:60SUB 1100:H$="Masse molaire d'un corps >ML 
“:Y=3:M=40:GDSUB 4110 

4420 LOCATE 8,8:PRINT"Formule :" >D6 


4430 LOCATE 18,8:PRINT "MIX) = ":LOCATE 25,7:PRINT ANS; >HH 
", mx) ":LOCATE 8,9:PRINT STRING$ (25, 154) 


4440 LOCATE 11,14:PRINT NN$:"= 6.02#10 mol" >MG 
4450 LOCATE 22,11:PRINT"23  -1* >IN 
4460 LOCATE 12,14:PRINT" (ou 6.02#1E+24)" >HQ 
4470 LOCATE 5,17: INPUT'"Entrez la valeur de m(x):",rep  )66 
4480 resultat=6.02#1E+24trep >XF 
4490 LOCATE 10,20:PRINT " M{x) =":ROUND (resultat, 2) >XH 
4500 LOCATE 1,23:PRINT CHR$(24):" £{{ Taper une >XY 
touche >>} "sCHR$ (24) :CALL &BBOb:GOTO 4180 

4510 ‘’### Volume d'un gaz ### 3YC 
4520 WHILE INKEY$<>"":WEND JVT 
4530 MODE 1:CLS:60SUB 1100:H$="Volume d'un gaz":Y=3:M=4 >WV | 

+ 0:G0SUB 4110 
4540 LOCATE 8,8:PRINT"Formule :" >DK d 








4, 


4550 LOCATE 18,8:PRINT "V{x) = nx) . Vm' A 
4560 LOCATE 8,9:PRINT STRING$ (26,154) FF 


4570 LOCATE 5,12: INPUT'Entrez la valeur de n(x):",n >D1 
4580 LOCATE 5,15: INPUT"Entrez la valeur de Vm :",v CZ 
4590 resultat=n#v NH 
4600 LOCATE 13,20:PRINT"U(x) =": ROUND(resuitat, 2 >WD 
4610 LOCATE 1,23:PRINT CHR$(24)5" été Taper une ?XA 
touche ii "y CHR$ (24) :CALL &BB06:GOTO 4180 
4620 END LÀ 
4630 ‘###* Nombre de particules d'un corps *#4 #YF 
4640 WHILE INKEY$<>"":WEND 3 


4650 MODE 1:CLS:G0SUB 1100:H$="Nonbre de particules d'u ?AE 
n corps":Ÿ=3:M=40:G0SUB 4110 
4660 LOCATE 8,8:PRINT"Formule :" DN 


4670 LOCATE 18,8:PRINT "N = ":LOCATE 22,7:PRINT NN$;". DPF 
n(x)":LOCATE 8,9:PRINT STRING$ (22,154) 

4686 LOCATE 11,11:PRINT NN$;"= 6.02#10 ol" ?MN 
4690 LOCATE 22,11:PRINT"23 -1" IV 
4700 LOCATE 12,14:PRINT" {ou &.02#1E+24)" >HM 
4710 LOCATE 5,18: INPUT"Entrez la valeur de n(x):",rep  >GF 
4720 resultat=6.(2#1E+24krep #XC 
4730 LOCATE 11,21:PRINT " N =": ROUND (resultat, 2) UC 
4740 LOCATE 1,23:PRINT CHR$i24):" Taper une t >FG 
ouche à} "4 CHR$ (24) 

4750 CALL &BEG6:6OTO 4180 ?TG 
4760 ‘#*# Masse d'un corps ##* FYE 


4770 WHILE INKEY$<>"":WEND 
4780 MODE 1:CLS:GOSUB 1100:H$="Masse d'un corps": Y=5:M= > XC 
40: GOSUB 4110 


4790 LOCATE 8,8:FPRINT'Formule :" DT 
4000 LOCÂTE 18,8:PRINT "mix) = nix) . M(x)" 2MN 
4810 LOCATE 8,9:PRINT STRING$ (28,154) iFP 
4820 LOCATE 5,12: INPUT'Entrez la valeur de n(x):",n #DX 
4830 LOCATE 5,15: INPUT"Entrez la valeur de M(x):",M +DP 
4940 resultat=n#M 3N4 
4850 LOCATE 13,20:PRINT'"'m{x) =":ROUND (resultat, 2) #WL 


4860 LOCATE 1,23:PRINT CHR$(24):" Taper une t ;XH 


ouche >>; “sCHR$ (24): CALL &RBO6:GOTD 418û 

4870 ‘*#+ Volume molaire d'un qaz #44 :1B 
4880 WHILE INÉEY$<{>"":WEND VC 
4990 MODE 1:CLS:G60SUB 1100:H$="Volume molaire d'un corp >PC 
s":Y=3:M=40:G60SUB 4110 

4900 LOCATE 8,8:PRINT'"Formule :" DK 


4910 LOCATE 18,8:PRINT "Vmix) =":LOCATE 25,7:PRINT NN$: JF 
". VO "sLOCATE 8,9:PRINT STRINGS (25, 154) 


4920 LOCATE 11,11:PRINT NN$;"= 6.02#10 nol" >MK 
4930 LOCATE 22,11:PRINT"23 -1" IR 
4940 LOCATE 12,14:PRINT" (ou 6.02#1E+24)" >HU 


4950 LOCATE 5,18: INFUT"Entrez la valeur de V(x):",rep  >GL 
4960 resultat=b.02#1E+24#rep 
4970 LOCATE 8,21:PRINT " Vmix) =":ROUND (resultat, 2) ?YN 


4980 LOCATE 1,23:PRINT CHR$(24):" . £<£ Taper une XL 
touche >>} "sCHR$ (24) :CALL &BBO6:G0TO 4180 

4990 ‘### nombre de aoles ### ?1E 
0000 WHILE INKEY$<>"":WEND >VL 


9010 MODE 1:CLS:GO0SUB 1100:H$="Nonbre de moles ":Y=3:M= }XB 
40:G0SUB 4110 


| 33 | 








5029 LOCATE 9,10:PRINT'"Solide,Liquide ou Gaz *":LOCATE KE 9 ":Y=3:M-40:GOSUB 4110 





16,11:PRINT"(S/L/6)" 9220 LOCATE 8,8:PRINT"Formule :" DF 
9030 z$=INKEYS YH 9230 LOCATE 18,8:PRINT "ntx) =":LOCATE 24,8:PRINT STRIN ;UA 
5040 IF 2$="S" OR z$="s" THEN GOSUB 1180:60T0 5080 QE 6$(6,154):LOCATE 24,7:PRINT " V(x)":LOCATE 24,9:FRINT " 
5050 IF z$="L" OR 2$="1" THEN GOSUB 1180:60T0 5170 :0M |  Vmix) 
5060 IF z$="6" OR z$="q" THEN GOSUR 1180:G60T0 5200 M 9240 LOCATE 5,12: INPUT'Entrez la valeur de mix):",p >DV 
5070 GOTO 5030 >MH 3290 LOCATE 5,15: INFUT'Entrez la valeur de Vmixit"sr FJ 
5080 ‘### Nombre de moles d’un solide *#+# >YF J260 resultat=p/r 2NF 
5090 MODE 1:CLS:GOSUE 1400:H$="Nombre de moles d'un sol ?RE | 9270 LOCATE 13,20:PRINT"nix) ="; ROUND (resultat, 2) #WJ 
ide":Y=3:M=40:GOSUE 4110 9280 LOCATE 1,23:FRINT CHR$(24)3" £{£ Taper une t :XE 
5140 LOCATE 8,8:PRINT"Formule :" DC ouche à} ": CHR$ (24): CALL &EBO6:GOTO 4180 
5110 LOCATE 18,8:PRINT "n(x) =":LOCATE 24,B:PRINT STRIN :TF 290 ‘### Legende ##+4 a\J 
G6$(6,154):LOCATE 24,7:PRINT " mix) ":LOCATE 24,9:PRINT 9300 CLS:MODE 1:G0SUB 1100:H$="#+ Legende ##":Y=3:M=46: PH 
Mo)" GOSUB 4110 
5120 LOCATE 5,12: INPUT'"Entrez la valeur de mix}:",h #DH | 3310 LOCATE 5,7:PRINT"m = masse d'un corps." >UV 
5130 LOCATE 5,15: INPUT"Entrez la valeur de M(x):",k >DF 9320 LOCATE 5,9:PRINT"V = volume d'un gaz." #TY 
5149 resultat=h/k ëNL 9330 LOCATE 5,11:FRINT'n = nbre de moles." 00 
5150 LOCATE 13,20:PRINT'n(x) ="; ROUND (resultat, 2) 2WF 9240 LOCATE 5,13:PRINT"Vm = volume molaire d'un corps." :LG 
5160 LOCATE 1,Z3:PRINT CHR$(24):" {€ Taper une t :XB 9390 LOCATE 5,14:PRINT NN$;" = nbre d'AVOGADRO, " VF 
ouche à; "sCHR#(24):CALL &BBO6:GOTO 4180 9360 LOCATE 5,17:PRINT "N = nbre de particules." ?1E 
d170 ‘##* Nombre de moles d'un liquide ### >YF 3370 LOCATE 5,19:PRINT "M = masse molaire atom. d'un co >?TU 
5180 MODE 1:CLS:GO0SUB 1100:H$="Nombre de moles d'un lig ?UR rps." 
uide":Y=3:M=40:GOSUB 4110 9380 LOCATE 1,23:PRINT CHR$(24):" ££ Taper une PH 
9190 6070 5100 :MJ touche :: "sCHR# (24) 
5200 ‘+##+ Nombre de moles d'un gaz +## 3XE | 9390 CALL &EBO6:GOTD 4180 TH 
S210 MODE 1:CLS:G0SUR 1100:H$="Nombre de moles d'un gaz LV @ 5400 RETURN :FC@ 






















4 REVUES POUR LES PASSIONNES 


CPC — REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous rece- 
vrez chez vous votre revue. Vous bénéficierez de réductions sur certains produits et vous 
recevrez gratuitement 1 n° hors-série tous les deux mois. 

AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes, 
des articles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 
PCompatibles MAGAZINE : la référence en matière d'initiation et de perfectionne- 
ment sur les "compatibles PC". 

Attention, tous nos abonnés recoivent avant parution des <ouscriptions sur les nouveaux 
livres ! 





ATTENTION | Il n'y a pas d'abonnement rétroactif. 


Qi CPC AMSTRAD 11 numéros 220F 

Q 6 numéros  120F 

Q AMSTAR 11 numéros  140F, 
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Eee 7 


Savoir comment nous joindre, les sommaires, les 
infos. 


(SRE 


Une nouvelle façon de poser les questions et de 
voir les réponses faites ! 


C'est en moyenne ce que vous trouvez sur le 
serveur. De quoi faire votre choix ! 


Crmams _] 


Une manière de correspondre entre vous ou de 
nous laisser des messages. Nos BAL : SORACOM 
- ARCADES - AMSTAR - PCOMPATIBLES - MEGA- 
HERTZ - CPC REDACT - ASTROLOGIE PRATIQUE 


En direct, vos questions, vos idées et suggestions 


CE sseus 7 


Certains revendeur français disposent d'un accès 
gratuit pour leurs promotions 


Es) 


La rubrique sur nos productions avec la possi- 
bilté de commander 


Es 


Désormais vous trouverez sur le serveur les 
nouveautés diffusées par cette société 


EE 7 


L'horoscope 1988 mais aussi depuis peu le men- 
suel du 15 au 15 du mois 


Au téléphone, 15 minutes coûtent en moyenne 55 francs 
Par minitel, il vous en coûte pour ls même temps 15 francs 





